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字体的电子邮件。如果我尝试发送它，我会收到一条错误消息。在SAVE上，我发现我也有Drafts，你预测的电子邮件版本 - 正确的字体和文字。我怎样才能摆脱第一封电子邮件？更改为粗体和斜体的任何提示？这只是编写一个普通的html文档并将其插入编码中的情况吗？

Answer 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

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

1 个答案: