OK, ich konnte den Fehler jetzt abfangen (4295). Ich habe es auch geschafft, das Dokument in die Mail.box zu kopieren (sehr guter Tipp), jedoch erscheint dann (ich teste es lokal) der Fehler:
"Mail-Nachrichten eines anderen Bentuzers wurden nicht zugestellt. Überprüfen Sie MAIL.BOX, um weitere Informationen zu erhalten."
Ich habe festgestellt, dass keine Empfänger und kein Sende-Datum in der Ansicht erscheint. Kopiere ich die Infos in die Mail-DB, sind jedoch die Felder besetzt.
Ich habe jetzt schon das Feld SendTo nach Recipients kopiert, doch es geht immer noch nicht. Lässt die Mail.box es vielleicht nicht zu???
On Error Resume Next
Call Mail.Send(False)
If Err = 4295 Then
Print "Copy Mail to Mail.box"
Dim MailBox As New NotesDatabase(DBServer,"mail.box")
Dim MailBoxDoc As NotesDocument
Set MailBoxDoc = New NotesDocument(MailBox)
Call Mail.CopyAllItems(MailBoxDoc)
Set Item = MailBoxDoc.AppendItemValue("Recipients",MailBoxDoc.SendTo)
Call MailBoxDoc.Save(True,False)
End If