VBA Diagramm in E-Mail einbinden

[Olerostock]

Moin derHöpp,

danke für deine Unterstützung und ich werde mich an dem Analysieren des Codes ranmachen.

Gruß Ole

[derHoepp]

Moin nochmal,

merkwürdig. Bei mir funktioniert es. Das einzige was ich mir noch vorstellen könnte, wäre die IsWordMail-Eigenschaft:  Inspector.IsWordMail method (Outlook) | Microsoft Learn

Viele Grüße
derHöpp

[volti]

Hallo Ole,

falls noch nicht gelöst (ich habe nicht alles gelesen) hier noch eine Idee (allerdings nicht auf Deinen Code angepasst).

Anstelle der Auslagerung der Grafik in eine Datei kann die Grafik auch direkt in die Mail kopiert werden. Wurde ja schon vorgeschlagen.
Entweder alleinig z.B. als Objekt kopieren und einfügen oder innerhalb eines Range.

Hier mal ein Schnipsel, wie es bei mir funktioniert. Es gibt noch zig. andere Methoden.

Gerne kannst Du auch mein Range2HTML ausprobieren. Das sollte im Gegensatz zum alten RangeToHTML auch Bereiche mit Bildern können.
https://www.clever-excel-forum.de/Thread...nd-Bildern

Code:

Private Sub Mail_BildalsBild_Word_Name2()
' Sendet Mail mit Bild mit Signatur
  Dim sBild As String, sMailtext As String, iEinf As Long, oShp As Object
  
  Set oShp = Sheets("Mailvorlage").Shapes("Chart 2")    ' Name der Grafik

  With CreateObject("Outlook.Application").CreateItem(0)
      .BodyFormat = 2                                   ' HTML-Format, Angabe optional
      .Subject = "MeinBetreff"                          ' Betreff
      .To = "Volti@myMail.de"                           ' Empfänger
      .Cc = ""                                          ' Kopie
      sMailtext = "Hallo!" & vbLf & "einText" & vbLf & vbLf & vbLf
      .GetInspector.Display
      .HTMLBody = Replace(sMailtext, vbLf, "<br>") & .HTMLBody
      
      If iEinf = 0 Then iEinf = Len(sMailtext) + 0      ' Grafik Einfügestelle mit spielen
      With .GetInspector.WordEditor.Application.Selection
            oShp.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
            DoEvents
            .Start = iEinf: .Paste                      ' Grafik in Mail einfügen
      End With
  End With
End Sub

_________
viele Grüße
Karl-Heinz

[Olerostock]

Hallo Karl Heinz,

ganz recht herzlichen Dank dafür und ich werde mich die Tage einmal an die Arbeit dazu machen.
Prima!!!

Gruß Ole