从 Access 通过 Outlook 发送 HTML 格式的电子邮件答案

【问题标题】：Sending HTML formatted email via Outlook from Access从 Access 通过 Outlook 发送 HTML 格式的电子邮件
【发布时间】：2013-10-28 10:21:10
【问题描述】：

这是我的代码的一部分，可以正常工作：

Dim objOutlook As New Outlook.Application
Dim objMail As MailItem
Dim Header as String
Dim Text As String
Dim EmailAddr as String

Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)

I then define Header, text and EmailAddr

With objMail
    .To = EmailAddr
    .Subject = Header
    .Body = Text
    .Send
End with

我想将文本格式化为 Arial 12pt。

我要插入什么来实现这一点？

在使用您的建议时，我首先收到一封电子邮件，其中没有测试文本，字体为 Calibri。如果我尝试发送它，我会收到一条错误消息。在保存时，我发现草稿中也有您预测的电子邮件版本 - 正确的字体和文本。我怎样才能摆脱第一封电子邮件？还有关于更改为粗体和斜体的任何提示吗？只是写一个普通的html文档并在编码中插入的情况吗？

【问题讨论】：

re：错误消息 - 我刚刚尝试了我的代码，它对我有用。如果您在 Outlook 关闭的情况下运行 Access VBA 代码，请在 Outlook 已打开的情况下再次尝试。回复：粗体等 - 是的，只需在 .HTMLBody 文本中使用适当的 HTML 标记。

标签： ms-access outlook vba

【解决方案1】：

根据对线程 here 的响应，似乎以下方法可能会奏效：

With objMail
    .To = EmailAddr
    .Subject = Header
    .BodyFormat = olFormatHTML
    .HTMLBody = "<span style=""font-family: Arial; font-size: 12pt;"">This is a test.</span>"
    .Send
End With

【讨论】：

当我尝试这个时：With objMail .To = "peter@mckeown-online.com" .NoAging = True .Display (True) .BodyFormat = olFormatHTML .HTMLBody = "这是一个测试。" .Save End With
@user2204315 提示：只需edit您的问题以及其他信息，然后在此处使用评论说“我已经更新了我的问题”。