将Outlook电子邮件项目和excel工作簿附加到我的电子邮件中

我已经有了附加excel工作簿的代码。我只需要将电子邮件项目附加到电子邮件中的代码。。请协助

尝试以下代码（根据您的要求更改图纸名称和范围）

---

在你做了研究之后，你尝试了什么？这是否回答了你的问题？

Sub Mail()
Dim r As Range
Set r = Worksheets("to_Mail").Range("A1:AD69")
r.Copy
Dim OutApp As Object
    Dim outMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set outMail = OutApp.CreateItem(0)
On Error Resume Next
    With outMail
    .HTMLBody = activeMailMessage.HTMLBody
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "Report Complete"
  Dim wordDoc As Word.document
Set wordDoc = outMail.GetInspector.WordEditor

wordDoc.Range.PasteAndFormat wdChartPicture
outMail.send
End With
End Sub