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

以下代码的目标是将选定的图表粘贴到我的文本下方的电子邮件正文 。 但是,它仍然粘贴在我的文字上方。 我怎样才能改变它,使其粘贴下面? 谢谢!

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 

更改select开始和结束。 增加一个额外的换行符也是一个好主意。 您还应该使用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