Nur eingebettetes Bild als Mail-Body versenden
23.02.2004 13:39:11
Russi
Ich komme bei einem Problem nicht weiter und hoffe auf Eure Hilfe.
Ist es möglich, eine eingebettete Grafik (ein Diagramm bzw. eine daraus umgewandelte GIF-Datei) per Mail zu verschicken?
Ich möchte nicht die ganze Arbeitsmappe versenden, nur das einzelne Object. Die 100%ig perfekte Lösung würde so aussehen, dass die Grafik nicht als Attachment, sondern als Body in die Mail eingefügt wird.
Mein Lösungsansatz bisher sieht vor, die Grafik erst zu speichern und dann zu verschicken. Mal davon abgesehen, dass diese Lösung etwas kompliziert ist funktioniert sie leider auch nicht. :-(
Vielleicht kann mit jemand von Euch sagen, wie ich die
Sub umbauen kann, damit sie funktioniert?
Russi
Private Declare
Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Sub SendGIF()
Dim Subject as String: Subject="Russi@Russi.de"
Dim GifNameVoll As String: GifNameVoll = "C:\Windows\temp\Bild01.gif"
Dim Body as String: Body = "Dies ist der Nachrichtentext, der eigentlich ein Bild sein solte."
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + _
"?Attach=" + GifNameVoll + _
"&Body=" + Body, "", "", 1)
End Sub