ich möchte ein Diagramm via email versenden.
Ich habe im Internet diesen Code gefunden:
<pre>Sub SaveSend_Embedded_Chart()
Dim OutApp As Object
Dim OutMail As Object
Dim Fname As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Fname = Environ$("temp") & "\test.gif"
ActiveWorkbook.Worksheets("Diagramm").ChartObjects("Diagramm 1").Chart.Export _
FileName:=Fname, FilterName:="GIF"
On Error Resume Next
With OutMail
.To = "lauter@nette_leute.de"
.CC = ""
.BCC = ""
.Subject = "derzeit noch leer"
.Body = "Hallo,"
.Attachments.Add Fname
.display 'or use .send
End With
On Error GoTo 0
Kill Fname
Set OutMail = Nothing
Set OutApp = Nothing
End Sub</pre>
Nun möchte ich das Diagramm nicht als gif Bild im Anhang versenden, sondern das "Bild" in der HTML Email anzeigen.
Kann mir jemand helfen, den Code zu ändern?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf