Hallo zusammen
in meinem Code werden nicht alle Kalendereinträge gefunden. Problem ist, das nur die Einträge gefunden werden bis vor 2 Wochen.
Quasie heute - 2 Wochen. Hat da jemen eine Idee was das Problem sein könnte?
Public Sub SetEventSettings()
Dim Appt As Object
Dim Items As Object
Set Items = Session.GetDefaultFolder(olFolderCalendar).Items
For Each Appt In Items
On Error Resume Next
Select Case Appt.Subject
Case "Lernzeit", "Nachrichten abarbeiten", "Preparation time for", "Machen Sie eine Pause"
With Appt
.Categories = "Viva"
.ReminderSet = False
.Sensitivity = olPrivate
.Save
End With
End Select
Next
Set Items = Nothing
Set Appt = Nothing
End Sub
|