Hallo miteinander, ich muss für die Uni ein Excel Dokument so programmieren, das bei einem Druck auf den Button eine Email an verschiedene weitere Adressen gesendet wird. Soweit alles gut und da habe ich kein Problem. Aber ich will nun nicht wie ich selbst programmiert habe das Bild im Anhang, sondern es soll unter dem Text angezeigt werden. Ich würde mich freuen, wenn ihr mir helft, da ich selbst noch Laie bin was VBA angeht.
Der aktuelle Quelltext sieht so aus:
Sub Schaltfläche2_Klicken()
Dim objOutlook As Object
Dim objNameSpace As Object
Dim objMailItem As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNameSpace("MAPI")
Call objNameSpace.Logon
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.Recipients.Add "hallo@test.de"
.Subject = "Erinnerung Dateneintragung"
.Body = „Text Text Text“
.ReadReceiptRequested = False
.Attachments.Add "D:\Test.jpg"
.Send
End With
End Sub
|