VBA Excel Mailversand per Outlook mit Signatur
08.02.2021 16:16:55
Erik
ich benötige mal wieder eure Hilfe. Vielen Dank im Voraus.
Ich erzeuge aus einer Exceltabelle per VBA eine Mail mit Anhang und Signatur. Das funktioniert bei mir recht gut. Ich möchte aber die Anrede und den zusätzlichen Mailtext in einer Variablen weitergeben, damit ich bereits in der Exceltabelle die passende Anrede und den Mailtext schreiben kann. Momentan ist dieser als fixer Teil im HTML Body enthalten!
Vielleicht hat jemand ne Idee?
Sub Mail_Outlook()
Dim olApp As Object
Dim olOldBody As String, varKW_Jahr As String
Dim GetHtmlBodyText As String
Dim strFilePDF As String
Dim varEmpfaenger As String, varKopie As String
Const sPfad As String = "C:\STtool\Rapport\"
varKW_Jahr = Range("B3") & "/" & Range("D1")
varEmpfaenger = "MaiAdresse1"
varKopie = "MaiAdresse2"
strFilePDF = sPfad & "DE.pdf"
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .HTMLBody
.Subject = "Wochenbericht KW " & varKW_Jahr
.To = varEmpfaenger
.CC = varKopie
.HTMLBody = " Hallo Gast,
" & "
" _
& "Hier soll der Text in Form einer Variablen stehen.
" _
& olOldBody
.Attachments.Add strFilePDF
.Display
End With
Set olApp = Nothing
End Sub