Скопировать таблицу Excel в почтовое сообщение Outlook
У меня есть адреса электронной почты в столбце A и объект диаграммы на том же листе.
Для каждого адреса электронной почты я хочу создать новое письмо в Outlook и вставить диаграмму Excel в тело письма.
Проблема с моей попыткой (ниже) заключается в том, что диаграмма не вставляется в тело письма. Как это исправить?
Это мой код:
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 = "xyz@anc.com"
m.BCC = "abc@xyz.com"
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