Liebes Forum,
ich hab ein Programm in VBA geschrieben, das eine E-Mail verschickt.
mein bisheriger Quellcode
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "E-Mail Empfänger"
'Betreff
.Subject = "Testmail"
'Nachricht
.Body = "Text der E-Mail"
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Attachments.Add dateiname //dateiname = Pfad des Bildes
.Send
End With
jedoch würde ich jetzt gernen das mitgesendete Bild nicht als Anhang sonder gleich als geöffnetes bild anzeigen.
weis jemand wie ich das machen kann??
Danke für eure Hilfe
ich hab ein Programm in VBA geschrieben, das eine E-Mail verschickt.
mein bisheriger Quellcode
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "E-Mail Empfänger"
'Betreff
.Subject = "Testmail"
'Nachricht
.Body = "Text der E-Mail"
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Attachments.Add dateiname //dateiname = Pfad des Bildes
.Send
End With
jedoch würde ich jetzt gernen das mitgesendete Bild nicht als Anhang sonder gleich als geöffnetes bild anzeigen.
weis jemand wie ich das machen kann??
Danke für eure Hilfe
Comment