如何在 VBA 生成的电子邮件正文中添加其他文本/图像？答案

【问题标题】：How to add additional text/images to the body of a VBA generated email?如何在 VBA 生成的电子邮件正文中添加其他文本/图像？
【发布时间】：2019-05-06 17:37:39
【问题描述】：

目前，vba 代码会创建一个 Outlook 电子邮件项目，该项目将 Word 文档的内容作为其电子邮件正文。如何向正文添加其他文本/图像？

这个 SO 问题的答案是我如何创建 Outlook 项目： How to send a Word document as body of an email with VBA

这是我正在使用的实际代码：

Sub email()
Mail_Object, o As Variant

    Dim wd As Object, editor As Object
    Dim doc As Object
    Set wd = CreateObject("Word.Application")
    Set doc = wd.documents.Open("(word address)")
    doc.Content.Copy
    Set wd = Nothing

Set Mail_Object = CreateObject("Outlook.Application")

        With Mail_Object.CreateItem(o)
            .Subject = "subject"
            .To = "to"
            Set editor = .GetInspector.WordEditor
            editor.Content.Paste

            'here something like: body = body & "additional text"
            .Display
        End With

        Application.DisplayAlerts = False
Set Mail_Object = Nothing
End Sub

【问题讨论】：

标签： excel vba

【解决方案1】：

如果您将对象定义为 .HTMLBody，则可以使用 HTML 标记。您可以尝试如下操作：

MailItem.HTMLBody = Content & "<br>" & "<br>"
MailItem.HTMLBody = Content &  "<B>" & "<h3>" & "DRAFT: Your Additional Content Here" & "</h3>" & "</B>" & "<br>" & _
"Your Additional Image Here: " & "<br>"&  "<img src="image/url">

【讨论】：

【解决方案2】：

当您命名 excel 标记时，以下是一些将形状或 Excel 单元格作为图片添加到电子邮件正文中的示例（无需 html 知识）：

With Editor.Range

    .Collapse wdCollapseStart
    .InsertBefore "Hi there," & vbCrLf & "here's my picture:" & vbCrLf

    .Collapse wdCollapseEnd
    .InsertAfter vbCrLf & "Best wishes," & vbCrLf

    .Collapse wdCollapseStart
    .PasteSpecial link:=False, _
        DataType:=wdPasteShape, _
        Placement:=wdInLine, _
        DisplayAsIcon:=False
    '.Paste
    '.PasteAndFormat wdChartPicture
    '.PasteAndFormat wdFormatPlainText
End With

【讨论】：