hier wird der error geloggt:
Sub logerror (logcat As String, logmsg As String)
Dim session As New notessession
Dim workspace As New NotesUIWorkspace
Dim currentLog As NotesLog
Dim directory As NotesDbDirectory
Dim db As NotesDatabase
Dim done As Variant
Dim agent As NotesAgent
Dim servername As String
Dim dbname As String
Set agent = session.CurrentAgent
Call initlogdb(servername, dbname)
' servername = "DEV02"
Set currentLog = New NotesLog( logcat )
Set db = session.CurrentDatabase
Call currentLog.OpenNotesLog( servername, dbname )
'...log some actions and errors
Call currentLog.LogError(0, logmsg)
Call currentLog.Close
End Sub