VBA 正文中粘贴了图表和文本的电子邮件

Question

以下代码的目标是将所选图表粘贴到电子邮件正文下方我的文本中。但是，它继续将其粘贴到我的文本上方。我如何更改它以使其粘贴在下面？谢谢！

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
    .CC = "xyz@anc.com"
    .BCC = "abc@xyz.com"
    .Subject = "Test"
    .Body = "Dear" & "Macro "

    ActiveSheet.Range("P36:X46").Copy
    Set wEditor = OutApp.ActiveInspector.WordEditor

    wEditor.Application.Selection.Paste

.display

Answer 1

更改选择的开始和结束。添加额外的换行符也可能是个好主意。您还应该使用 MailItem.GetInspector 而不是 Application.ActiveInspector，因为该消息尚未显示。

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
    .CC = "xyz@anc.com"
    .BCC = "abc@xyz.com"
    .Subject = "Test"
    .Body = "Dear" & "Macro " & vbCrLf

    ActiveSheet.Range("P36:X46").Copy
    set vInspector = OutMail.GetInspector
    Set wEditor = vInspector.WordEditor

    wEditor.Application.Selection.Start = Len(.Body)
    wEditor.Application.Selection.End = wEditor.Application.Selection.Start

    wEditor.Application.Selection.Paste

.display

VBA 正文中粘贴了图表和文本的电子邮件

VBA Email with pasted chart and text in body

email

excel

outlook

vba