ich nutze den nachfolgenden VBA-Code, um auf eine Mail als Antwort eine Eingangsbestätigung zu versenden. Das Problem hierbei ist, dass alle eingebetteten Bilder aus der Ursprungsmail in der Antwortmail nicht mehr vorhanden sind. Stattdessen wird die folgende Fehlermeldung angezeigt:
Inwiefern muss ich den Code abändern, um die Bilder auch in der Antwortmail korrekt dargestellt zu bekommen?
Sub Eingangsbestaetigung()
'***********************************************************
'Subroutine zum Versand einer Eingangsbestätigung
'***********************************************************
'Variablendimensionierung
Dim Mail As Outlook.MailItem
Dim Antwort As Outlook.MailItem
Dim objFolder As Outlook.Folder
'Aktuell ausgewählte Mail festlegen
Set Mail = ActiveExplorer.Selection.item(1)
'Antwort Mail erstellen und versenden
Set Antwort = Mail.Reply
Antwort.HTMLBody = "" & _
"Sehr geehrte Damen und Herren,
" & _
"der Eingang wird bestätigt.
" & _
"VG
" & _
Anwender_global & _
"
- - - Ursprüngliche Nachricht - - -
" & _
"
" & _
Mail.HTMLBody
Antwort.Send
'Ressourcenfreigabe
Set Mail = Nothing
Set Antwort = Nothing
End Sub