Hallo erst mal,
in einem zeitgesteuerten Agent erhalte ich beim Versuch ein Dokument zu versenden folgenden Fehler in der log.nsf:
16.08.2007 09:58:07 Error connecting to server xxxxxxxxxx: The destination network is unreachable.
16.08.2007 09:58:07 Error connecting to server xxxxxxxxxx: The destination network is unreachable.
Dannach folgt das Ergebnis der eigenen Fehlerroutine:
16.08.2007 09:58:07 AMgr: Agent ('FetchDeadMails' in 'DeadMailContainer.nsf') printing: Fehler in Agent FetchDeadmails, sub sendLogMail, Zeile 11
16.08.2007 09:58:07 AMgr: Agent ('FetchDeadMails' in 'DeadMailContainer.nsf') printing: Notes error: The destination network is unreachable.
Hier der Code aus der sub, in der der Fehler auftritt:
Sub sendLogMail( subject As String, bodyText As String )
On Error Goto fehler
Dim memo As NotesDocument
Set memo = session.CurrentDatabase.CreateDocument
With memo
.form = "Memo"
.sendTo = profileDoc.sendLogMailTo
.subject = subject
.body = bodyText
End With
Call memo.Send( False ) '<<== Zeile 11
weiter:
Exit Sub
fehler:
On Error Goto 0
Print "Fehler in Agent FetchDeadmails, sub sendLogMail, Zeile " & Erl
Print Error
Resume weiter
End Sub
Was mache ich falsch?
Hubert