从 Excel VBA 编辑 Outlook 电子邮件

Question

我有下面的代码来成功使用保存在我的机器上的预制 Outlook 模板 (fileName) 并将 Active Excel 文档附加到其中，但是我想添加一些额外的文本添加到电子邮件模板以节省我复制和粘贴它的时间。是否有向预制电子邮件模板添加额外的正文文本，或者如果我可以让我的 VBA 代码读取正文文本，然后我可以通过将其存储在临时变量中来添加它？这是一个保存的 .msg 文件

Public Function GenerateEmail(sendTo As String, _
    sendCC As String, sendBCC As String, _
    subjectText As String, fileName As String)

    Application.ScreenUpdating = False

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItemFromTemplate(fileName)

    With OutMail
        .sendTo = sendToText
        .CC = sendCCText
        .BCC = sendBCCText
        .Subject = subjectText
        .Attachments.Add (Application.ActiveWorkbook.FullName)
        .Display
    End With

    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With

End Function

Answer 1

您必须保存一个模板 - 您只需起草一个模板（我通常使用标记来替换身体的某些部分，具体取决于收件人 - 例如“Dear %Recipient%”），然后“另存为”一个 .经常文件。然后运行你的代码来发送邮件。我还会使用.HTMLbody 来维护模板的格式，以便您输入

With OutMail
        .sendTo = sendToText
        .CC = sendCCText
        .BCC = sendBCCText
        .Subject = subjectText
        .HTMLbody= WorksheetFunction.Substitute(OutMail.HTMLbody, "%Recipient%", [Recipiants name here (this could be a stored string)])
        .Attachments.Add (Application.ActiveWorkbook.FullName)
        .Display
End With

Answer 2

只需在电子邮件文本中添加一个 .body，如下所示

 With OutMail
        .sendTo = sendToText
        .CC = sendCCText
        .BCC = sendBCCText
        .Subject = subjectText
        .body = "Add your Text here"
        .Attachments.Add (Application.ActiveWorkbook.FullName)
        .Display
End With