Office: Bild mittels Makro in E-Mail einbetten

Hallo Zusammen,

ich habe ein Makro erstellt, welches mir eine E-Mail öffnet und mit den erforderlichen Angaben füllt.

Leider stellen sich mir trotz Google-Recherche noch folgende Probleme:
Ich möchte
1. ein Bild, welches bei mir unter R:Signatur.jpg abgelegt ist als Attachment hinzufügen und
2. das Bild im Body als tatsächliches Bild einbetten.

So sieht mein Makro bis dato aus:

Sub EMail_erstellen()

Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String

Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xy@xy.de"
.Subject = "Betreff"
.htmlBody = "Hallo," & "
" & "
"

.Display
End With

Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

--------------------------------------------------------------------------

Wäre super, wenn mir irgendjemand von Euch Spezialisten weiterhelfen könnte.


Gruss

Thomas

:)

 

Hi Thomas,

Bild als Anhang:

Code:

Bild in der Mail:

Code:

Beachte, dass der / eigentlich ein Backslash sein muss und vor br und vor img darf kein Leerzeichen sein. Beides ist erforderlich, weil die Forensoftware den Code sonst nicht korrekt darstellt.

 

Hi Beverly,

perfekt. Hat funktioniert. Vielen, vielen Dank. Musste nur noch hinter jpg ein ">" einfügen.

Hast du denn auch eine Lösung dafür wie ich in meinem Beipspiel, die in Outlook hinterlegte Signatur automatisch unter dem Body einfügen kann?

Wurde zwar schon etliche male unter "Google" diskutiert, aber hinbekommen habe ich es bis dato trotz unzähliger Versuche leider nicht.

Habe dir mein Makro mal anghangen. Vielleicht hast du ja nochmal etwas Zeit für einen Support.


Gruss

Thomas

 

Hi Thomas,

ohne deine Mappe gesehen zu haben - die Signatur kann man so anhangen:

Code:

 

Hi Karin,

das funktioniert leider nur soweit bis ich einen Body einfügen.

Danach wird die Signatur überschrieben.


Gruss

Thomas

 

Hi Thomas,

du hast diese Zeile vor der Zeile .display eingefügt?

 

Sub EMail_erstellen()

Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String

Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "xy@xy.de"
.Subject = "Betreff"
.htmlBody = "Hallo,"
.GetInspector

.Display

End With


Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

 

Genau so meinte ich es.

 

Hallo, *Smilie

laut Hilfe überschreibt "GetInspector" den Body, bzw. Body dann wieder den "GetInspector". Deshalb muss man den "Body" zwischenspeichern: *wink.gif*

Code:

Bei Bedarf fügst Du natürlich mit den üblichen HTML-Codes (br-Tag) noch Leerzeilen vor dem "strOldBody" ein.

Servus
Case

 

Super. Vielen Dank für Euren Support. Genau das meinte ich.