Falsche Signatur
05.07.2022 15:30:33
Iyvory
ich möchte mit Excel E-Mails an gewisse Personen versenden. Deren Namen, Mailadresse etc. ist in einer Tabelle abgespeichert. In der Tabelle "E-Mail" wähle ich eine Person aus und klicke auf die Schaltfläche und lasse mir eine E-Mail anfertigen, was noch nicht sofort versendet wird.
Problem dabei ist, dass meine Signatur nicht ordentlich angezeigt wird.
Der Code sieht folgendermaßen aus.
Sub Mail_erstellen()
Sheets("E-Mail").Select
Dim oApp As Object, emailMail As Object, signature As String
Dim edress As String
Dim subj As String
Dim message As String
Set oApp = CreateObject("Outlook.Application")
Set emailMail = oApp.CreateItem(0)
With emailMail
.Display
End With
signature = emailMail.Body
With emailMail
.BodyFormat = olFormatHTML
.To = Sheets("E-Mail eine Beladestelle").Range("C2").Value
.CC = Sheets("E-Mail eine Beladestelle").Range("D2").Value
.Subject = Sheets("E-Mail eine Beladestelle").Range("E2").Value
.Display
.HTMLBody = " " & Sheets("E-Mail eine Beladestelle").Range("A21").Value
.HTMLBody = .HTMLBody & "
" & "
" & " " & Sheets("E-Mail eine Beladestelle").Range("A23").Value & "
" & "
"
.HTMLBody = .HTMLBody & "
" & "
" & "" & Sheets("E-Mail").Range("A25").Value
.HTMLBody = .HTMLBody & "" & "
" & "
" & Sheets("E-Mail").Range("A27").Value
.HTMLBody = .HTMLBody & "
" & "
" & "" & Sheets("E-Mail").Range("A29").Value
.HTMLBody = .HTMLBody & "" & "
" & "
" & Sheets("E-Mail").Range("A31").Value
.HTMLBody = .HTMLBody & "
" & "
" & Sheets("E-Mail").Range("A33").Value
.HTMLBody = .HTMLBody & "
" & "
" & Sheets("E-Mail").Range("A35").Value
.HTMLBody = .HTMLBody & "
" & "
" & Sheets("E-Mail").Range("A37").Value
.HTMLBody = .HTMLBody & "
" & "
" & Sheets("E-Mail").Range("A39").Value
.HTMLBody = .HTMLBody & "
" & "
" & Sheets("E-Mail").Range("A41").Value
.HTMLBody = .HTMLBody & "
" & "
" & Sheets("E-Mail").Range("A43").Value
.HTMLBody = .HTMLBody & "
" & "
" & Sheets("E-Mail").Range("A45").Value
.HTMLBody = .HTMLBody & "
" & "
" & Sheets("E-Mail").Range("A47").Value
.HTMLBody = .HTMLBody & "
" & "
" & Sheets("E-Mail ").Range("A49").Value
.HTMLBody = .HTMLBody & "
" & "
" & Sheets("E-Mail").Range("A51").Value & "
" & "
" & signature
.Save
End With
Set emailMail = Nothing
Set oApp = Nothing
End Sub
Leider wird jedesmal die Signatur ohne Bild und nebeneinander angezeigt.
Als Beispiel: "Beste Grüße Max Mustermann Musterstraße 12 Musterstadt"
Was kann ich nun vorgehen um dieses Problem zu lösen. Bin neu und würde mich über eure Hilfe freuen.
Vielen Dank im Voraus.
Anzeige