ms-access - 从 Access 通过 Outlook 发送 HTML 格式的电子邮件

Question

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

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 文档并将其放入编码中吗？

Answer 1

根据对此处线程的响应，以下内容似乎可以解决问题：

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