AW: Outlook auslesen, plötzlich Fehler
10.10.2017 20:18:28
Daniel
Hallo Luschi,
danke schon einmal für deinen Tipp. Der Fehler liegt hier (s. Pfeile):
Private Sub AusnahmeTermine(olApt As Outlook.AppointmentItem, olRecPat As Outlook. _
RecurrencePattern)
'Ausnahmen bei wiederkehrenden Terminen prüfen und Zeit von Start und Ende einlesen
Dim datListe As Variant, datOriginal As Date
Dim datStartNeu As Date, datEndeNeu As Date
Dim olException As Outlook.Exception
Dim iCount As Integer
If iApt = 0 Or olRecPat.Exceptions.Count = 0 Then Exit Sub
For iCount = 1 To iApt
datListe = arrApt(2, iCount)
For Each olException In olRecPat.Exceptions
datOriginal = olException.OriginalDate
If datOriginal = datListe Then
-> -> -> datStartNeu = olException.AppointmentItem.Start
datEndeNeu = olException.AppointmentItem.End
arrApt(2, iApt) = datStartNeu
arrApt(3, iApt) = datEndeNeu
Exit For
End If
Next olException
Next iCount
End Sub
Fehlermeldung: Fehler beim Vorgang. Ein Objekt kann nicht gefunden werden.
Hast du eine Idee, wie ich es lösen kann?
Danke dir schon einmal und VG
Daniel