HTMLBody
02.12.2022 18:27:22
Mani
Ich hoffe jemand kann mir hier helfen. Ich möchte gerne den Text bei HTMLBody von einem anderen Modul ziehen, da sich dieser immer wieder verändert.
Der Aufruf "Call" funktioniert hier leider nicht.
Hat jemand eine Idee, wie ich das gestalten kann?
Danke!
Gruß Mani
Sub e_Mail_Test()
Dim strPDF As String
Dim OutlookApp As Object, strEmail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0)
Call Bereich_kopieren_PDF
strPDF = ThisWorkbook.Path & "\" & "\Essen.pdf"
With strEmail
.To = "xyz@gmail.com"
.Subject = "Essen_Sabine"
.HTMLBody =
.Attachments.Add strPDF
.Display
Kill strPDF
End With
Set OutlookApp = Nothing
Set strEmail = Nothing
Workbooks("Sabine.xlsx").Close SaveChanges:=True
End Sub