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 |
| Set pDoc = Me.pDocCol.GetNthDocument ( i ) |
| Set tCol = Me.TicketCollection ( pDoc ) |
| If ( Not tCol Is Nothing ) Then |
| If tCol.Count > 0 Then |
| If Me.SendNotifications ( pDoc , tCol ) Then |
| If Not Me.StampAll ( pDoc, tCol ) Then Exit Sub |
| 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 ...
