Error: Fehler beim Ausführen der Operation(VBA-OutlookKalender)
Guten Tag,
ich arbeite zur Zeit an einem kleinen Makro für Outlook. Seit kurzer Zeit habe ich allerdings einen Error drin. Mir wird folgender Error angezeigt:
Fehler beim Ausführen der Operation
Genauer gesagt geht es um diese Zeile:
Die komplette Funktion sieht folgendermaßen aus:
Sie fragt (bis heute morgen auch erfolgreich) den Feiertagskalender nach passenden Einträgen ab.
System:
Win 8.1
Office(n) 2003,2007,2010 und 2013
Mit freundlichen Grüßen
Lukas Kämmerling
ich arbeite zur Zeit an einem kleinen Makro für Outlook. Seit kurzer Zeit habe ich allerdings einen Error drin. Mir wird folgender Error angezeigt:
Fehler beim Ausführen der Operation
Genauer gesagt geht es um diese Zeile:
Set objApp = CreateObject("Outlook.Application")
Die komplette Funktion sieht folgendermaßen aus:
' FTE_IsHoliday
' Fragt ab ob der Tag im Feiertagskalender steht
' @params [Date] datum [Datum des Termins
' @return [Boolean] Wenn ja true; wenn nein false
Public Function FTE_IsHoliday(ByVal datum As Date, ByRef returns As String) As Boolean
Dim objApp As Application
Dim objNS As NameSpace
Dim objCalendar As MAPIFolder
Dim objAppointment As Outlook.appointmentitem
Dim sFilter As Variant
Set objApp = CreateObject("Outlook.Application")
Set objNS = objApp.GetNamespace("MAPI")
Set objCalendar = objNS.GetDefaultFolder(olFolderCalendar)
sFilter = "[Start] = '" & Format(FTE_TimeToZero(datum), "ddddd Hh:Nn") & "'"
Set objAppointment = objCalendar.Items.Find(sFilter)
If Not TypeName(objAppointment) = "Nothing" Then
If InStr(objAppointment.Categories, "Feiertag") Then
FTE_IsHoliday = True
returns = objAppointment.Subject
Else
FTE_IsHoliday = False
End If
Else
FTE_IsHoliday = False
End If
End Function
System:
Win 8.1
Office(n) 2003,2007,2010 und 2013
Mit freundlichen Grüßen
Lukas Kämmerling
Please also mark the comments that contributed to the solution of the article
Content-Key: 217740
Url: https://administrator.de/contentid/217740
Printed on: April 19, 2024 at 22:04 o'clock