0

这是我的代码的一部分,它工作正常:

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

4

1 回答 1

3

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

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
于 2013-10-19T18:50:28.210 回答