Lotus Notes mail via VBA

Hej alle

Jeg har et stykke kode som skulle sende mail fra Lotus Notes gennem VBA. Koden virker som sådan ganske fint.... en gang imellem.

Jeg har valgt at bruge Domino COM objects, da jeg ikke ønsker at starte Notes i baggrunden, men et eller andet må der mangle siden det ikke virker 100%. Der kommer dog ingen fejl under afviklingen, mailsne dukker simpelthen bare ikke op.

Function SendDominoMail()
Dim Session As New Domino.NotesSession
Dim Notesdb As Domino.NotesDatabase
Dim NotesDoc As Domino.NotesDocument
Dim NotesBody As Domino.NotesRichTextItem
Dim LNPW As String
Dim MyError As Error

On Error GoTo Err_SendDominoMail
   
LNPW = DLookup("PASSWORD", "LOTUS_NOTES")
Session.Initialize ("" & LNPW & "")

Set Notesdb = Session.GetDatabase("SERVER", "PATH\MAIL.nsf")
If Not Notesdb.IsOpen Then Notesdb.Open

Set NotesDoc = Notesdb.CreateDocument
NotesDoc.AppendItemValue "Subject", "INSERT SUBJECT"
NotesDoc.Send False, test@mail.dk

Exit_SendDominoMail:
Set Notesdb = Nothing
Set NotesDoc = Nothing
Set NotesBody = Nothing
Set Session = Nothing
Exit Function
   
Err_SendNotesMail:
For Each MyError In DBEngine.Errors
    Call ErrorLog(MyError.Number, MyError.Description, "SendNotesMail()")
Next MyError
Resume Next
End Function