Es gibt aber in diesem Zusammenhang noch einen weiteren BUG.
Bitte den Code der Public Sub Run durch den folgenden Code erstzen
Public Sub Run ()
Dim i As Integer
Dim pDoc As NotesDocument
Dim tCol As NotesDocumentCollection
For i = 1 To Me.pDocCol.count ' loop thru notification profiles
Set pDoc = Me.pDocCol.GetNthDocument ( i ) ' get a profile
Set tCol = Me.TicketCollection ( pDoc ) ' get according tickets / todo etc
If ( Not tCol Is Nothing ) Then
If tCol.Count > 0 Then
If Me.SendNotifications ( pDoc , tCol ) Then ' send notifications
If Not Me.StampAll ( pDoc, tCol ) Then Exit Sub ' stamp docs if success
End If
End If
End If
Next
End Sub
Ich war wohl etwas zu optimistisch und bin davon ausgegangen, daß es immer irgend einen Vorgang gibt, der dann auch eskaliert. Tatsächlich kann es aber vorkommen, daß tCol keine Werte enthält ...