Ich schau da jetzt ein wenig ungläubig.
Bist du dir sicher das du wirklich ein komplettes Design Update mit der Beta2 durchgeführt hast? An diesen beiden Stellen hab ich jetzt nun gar keine Probleme.
Der Dispatcher ist zum Beispiel komplett aufgeräumt worden. Da darf eigentlich nur noch das hier in Initialize stehen:
Sub Initialize
Dim s As New NotesSession
Call UnprocessedTickets
EXITPOINT:
Exit Sub
ERRHANDLE:
Dim TheError As String
Dim TheProc As String
'TheProc = Getthreadinfo(LSI_THREAD_PROC)
TheError = Getthreadinfo(LSI_THREAD_PROC) & ": " &Trim$(Str$(Err)) & " on line " & Cstr(Erl) & ": " & Error$
If UseOpenLog Then
Call LogError
Elseif LogScriptErrors Then
Dim agent As NotesAgent
Set agent = s.CurrentAgent
TheProc = agent.Name
Dim L As New LogProfile ( s.CurrentDatabase, TheProc,LOG_NORMAL, s.CurrentDatabase.Server)
Call L.LogAction( TheError ,LOG_NORMAL)
End If
'In all cases
Print TheError
If ResumeMethodNext Then
Resume Next
Else
Resume EXITPOINT
End If
End Sub
Deine Fehlermeldung weist aber darauf hin das da noch eine alte Version vorhanden ist.