Bilder mit Excel VBA versenden als HTMLBody
12.04.2025 19:04:29
Blaupunkt79
ich hoffe, Ihr könnt mir helfen, ich möchte via Excel VBA eine Mail über Outlook versenden. Genauer ein Bild, welches im HTMLBody eingefügt ist, so dass man direkt am Handy das Bild sieht. Der Mailversand funktioniert problemlos, leider kann ich auf dem Handy kein Bild sehen, dass Bild sehe ich nur im Outlook, mit dem ich die Mail versende. Anbei der relevante Codeausschnitt, den ich verwende. Was mache ich verkehrt?
Do While rec_adr.EOF = False
If InStr(1, RTrim(rec_adr!Mail), "@") > 1 Then
b = b + 1
Set OutApp = CreateObject("Outlook.Application")
With OutApp.CreateItem(0)
.bodyformat = 2
.To = RTrim(rec_adr!Mail)
.Subject = TextBox2
.HTMLBody = "(Pfeil nach links)img src=""file://" & RTrim(rec_adr!link) & """(Pfeil nach rechts)
.send
End With
Set OutApp = Nothing
Else
End If
rec_adr.MoveNext
Loop
DB.Close
Set DB = Nothing
MsgBox (b & " Mails wurden erfolgreich versandt!")
Danke
Grüße
Mirko
Anzeige