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
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)
Set objMaildb = Nothing
Set objMailDoc = Nothing
Set objAttachME = Nothing
Set objSession = Nothing
Set objEmbedObj = Nothing
Worksheets(Worksheets.Count).Protect Password:="321"
End Sub