使用文件夹中已保存的电子邮件模板通过 excel 使用 VBA 发送电子邮件？答案

【问题标题】：Send email with VBA through excel with already saved email template in folder?使用文件夹中已保存的电子邮件模板通过 excel 使用 VBA 发送电子邮件？
【发布时间】：2020-07-11 07:23:36
【问题描述】：

我在 excel 中有一个电子邮件列表，我想在 Outlook 中发送已经预制的电子邮件，我已将其保存为文件夹中的模板。而不是尝试通过 VBA 重新创建此电子邮件。我很想知道是否可以将保存的 Outlook 模板发送到每封电子邮件。

【问题讨论】：

您尝试过使用 MailMerge 吗？
我不知道那是什么。
这不是垃圾邮件吗？
MailMerge 仅打印我需要将其作为电子邮件发送。
MailMerge 也会发送电子邮件。

标签： excel vba email outlook

【解决方案1】：

试试这个模板。您可能希望将电子邮件和内容变量传递给该函数，但听起来您可以使用已有的内容重新配置该部分。

Sub CreateEmailfromTemplate()
    Dim obApp As Application
    Dim NewMail As Outlook.MailItem

    Set obApp = Outlook.Application
    Set NewMail = obApp.CreateItemFromTemplate("C:\directory\Template.oft")
    NewMail.Display
    With NewMail
        .To = "example@mail.com"
        .Display
    End With

    Set obApp = Nothing
    Set NewMail = Nothing
End Sub

【讨论】：