VBA_Makro Outlook

Hallo,

angehängt der Code für ein VBA_Makro, was theoretisch die gekennzeichneten Feiertage von frei auf abwesend setzen sollte.

Funktioniert bei mir leider nicht- haben sie eine Idee, wo der Fehler liegt?

Viele Grüße

Michael Weil

Sub setFeiertageAbwesend()
´ Die Anwendung erfolgt im gerade selektierten Kalender
Dim olFolder As MAPIFolder
Set olFolder = Application.ActiveExplorer.CurrentFolder

´ Ist kein Kalender selektiert, wird die Operation übersprungen
If olFolder.DefaultItemType = olAppointmentItem Then
Dim olApptItem As Outlook.AppointmentItem

For Each olApptItem In olFolder.Items
With olApptItem
´ Nur Termine der Kategorie „Feiertag“ bearbeiten
If InStr(.Categories, „Feiertag“) Then
´ Nur Termine die als „frei“ angezeigt werden bearbeiten
If .BusyStatus = olFree Then
´ Folgende Feiertage als „Abwesend“ markieren
If InStr(.ConversationTopic, „Heilige Drei Könige“) = 0 And _
InStr(.ConversationTopic, „Mariä Himmelfahrt“) = 0 Then
.BusyStatus = 3
.Save
End If
End If
End If
End With
Next olApptItem
End If
End Sub