Hallo Community,

für die Versendung einer Arbeitsmappe habe ich ein Makro geschrieben. Text für Betreff, E-Mail Text und Signatur wird übergeben.
Habe bereits ein ähnliches für Outlook geschrieben, bei IBM Notes (Ver. 9.0.1 FP 5) jedoch Probleme. Den Code für den Programmaufruf
habe ich aus dem Internet und lediglich angepasst.

Sub AnfrageSendenLotus()
    Worksheets(Worksheets.Count).Unprotect Password:="321"

    Dim objSession As Object
    Dim objMaildb As Object
    Dim objMailDoc As Object
    Dim objAttachME As Object
    Dim objEmbedObj As Object

    Dim strUserName As String
    Dim strMailDbName As String
    Dim strMailText As String
    
    Set objSession = CreateObject("Notes.NotesSession")
    Set objMaildb = objSession.GetDatabase("", "C:\Users\NUTZER\AppData\Local\IBM\Notes\Data\mail\NUTZER.nsf")
    objMaildb.OpenMail
    
'    If objMaildb.IsOpen = False Then
'        MsgBox "Bitte anmelden"
'        Exit Sub
'    End If
        
    strMailText = Worksheets("tblBackend").Range("B4").Value
    
    Set objMailDoc = objMaildb.CreateDocument
    With objMailDoc
    .Form = "Memo"
    .sendto = "mail@hotmail.de"
    .Subject = "Übersicht vom " & Worksheets("tblBackend").Range("B3").Value
    .body = strMailText & Worksheets("tblMaßnahmen").Range("A42").Value
    End With
      
    Set objAttachME = objMailDoc.CREATERICHTEXTITEM("Attachment")
    Set objEmbedObj = objAttachME.EMBEDOBJECT(1454, "", "C:\Users\NUTZER\Desktop" & ThisWorkbook.Name)
  
'    objMailDoc.PostedDate = Now()
'    objMailDoc.SEND 0, Recipient
    
    Set objMaildb = Nothing
    Set objMailDoc = Nothing
    Set objAttachME = Nothing
    Set objSession = Nothing
    Set objEmbedObj = Nothing
    
    Worksheets(Worksheets.Count).Protect Password:="321"

End Sub

Notes wird geöffnet, jedoch keine neue Nachricht. Es wird ein Automatisierungsfehler ausgegeben: Laufzeitfehler 2147417851 (80010105). Beim Debuggen wird in der Zeile   "objMaildb.OpenMail" gestoppt.

Hat jemand einen Ansatz für mich? Ggf. gibt es Probleme mit dem Laden der Datenbank. Bei GetDatabae habe ich bereits als Parameter ("", "") probiert, anstelle der genauen Pfadangabe.

Vielen Dank.

BigC