Ich habe E-Mail-Adressen in Spalte A und ein Diagrammobjekt im selben Blatt.

Für jede E-Mail-Adresse möchte ich eine neue E-Mail in Outlook erstellen und das Excel-Diagramm in den E-Mail-Text einfügen.

Das Problem bei meinem Versuch (siehe unten) ist, dass das Diagramm nicht in den E-Mail-Text eingefügt wird. Wie behebe ich das?

Dies ist mein Code:

Sub smail()        
    Dim r As Integer
    Dim o As Outlook.Application
    Dim m As Outlook.MailItem
    Set o = New Outlook.Application
    r = 1
    Do While Cells(r, 1) <> ""
        Set m = o.CreateItem(olMailItem)
        m.To = Cells(r, 1)
        m.CC = "[email protected]"
        m.BCC = "[email protected]"
        m.Subject = "Test"
        ActiveChart.ChartArea.Copy
        Set wEditor = o.ActiveInspector.WordEditor
        'm.Body = Paste
        wEditor.Application.Selection.Paste

        m.Send
        r = r + 1
        Set m = Nothing
    Loop
End Sub