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
|