Вложение элемента электронной почты Outlook и книги Excel в мою электронную почту

Question

У меня уже был код для прикрепления книги Excel. Мне просто нужен код для прикрепления элемента электронной почты к электронному письму.

Answer 1

Попробуйте код ниже (измените название листа и диапазон в соответствии с вашими требованиями)

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