本文旨在指导 VBA 开发者如何修改 Outlook 邮件的字体样式，确保邮件内容以指定的字体和大小正确显示。我们将探讨两种主要方法：直接在 HTML 正文中设置字体样式，以及利用 Word 对象模型进行更精细的控制。通过本文，你将能够轻松定制 Outlook 邮件的字体，提升邮件的专业性和可读性。
方法一：在 HTML 正文中设置字体样式
这种方法简单直接，通过在 HTML 标签中内联 CSS 样式来控制字体。
示例代码：
Sub Mail_Outlook_HTML_Font()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.SentOnBehalfOfName = "your_email@example.com" ' 替换为你的邮箱地址
.Display
.To = "recipient@example.com" ' 替换为收件人邮箱地址
' 使用 HTML 标签和内联 CSS 设置字体样式
.HTMLBody = "<font font-family: Calibri; font-size: 11pt;"">Hello, </font>" & "<br>" & "<br>" & _
"<font font-family: Calibri; font-size: 11pt;"">Please find in attachment the Report.</font>" & "<br>" & _
"<font font-family: Calibri; font-size: 11pt;"">We remain available should you have any questions.</font>" & .HTMLBody
.CC = "cc@example.com" ' 替换为抄送人邮箱地址
.BCC = ""
.Subject = "Report"
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub代码解释：
- 我们使用 <font> 标签，并利用 style 属性来指定字体样式。
- font-family: Calibri; 设置字体为 Calibri。
- font-size: 11pt; 设置字体大小为 11 磅。
- 可以将需要特定字体的文本包裹在 <font> 标签中。
注意事项：
- 这种方法需要为每一段需要特定字体的文本都添加 <font> 标签，较为繁琐。
- 内联 CSS 样式的优先级较高，可能会覆盖其他样式设置。
- 确保 Outlook 客户端支持 HTML 邮件格式。
方法二：使用 Word 对象模型
这种方法更加灵活，允许你使用 Word 对象模型来控制邮件正文的格式。
示例代码：
Sub Mail_Outlook_Word_Font()
Dim OutApp As Object
Dim OutMail As Object
Dim wdDoc As Object ' Word Document 对象
Dim wdRange As Object ' Word Range 对象
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.SentOnBehalfOfName = "your_email@example.com" ' 替换为你的邮箱地址
.Display
.To = "recipient@example.com" ' 替换为收件人邮箱地址
.Subject = "Report"
.HTMLBody = "Hello, " & "<br>" & "<br>" & "Please find in attachment the Report." & "<br>" & "We remain available should you have any questions."
' 获取 Word Document 对象
Set wdDoc = .GetInspector.WordEditor
Set wdRange = wdDoc.Range
' 设置整个文档的字体
With wdRange.Font
.Name = "Calibri"
.Size = 11
End With
.CC = "cc@example.com" ' 替换为抄送人邮箱地址
.BCC = ""
End With
Set wdRange = Nothing
Set wdDoc = Nothing
Set OutMail = Nothing
Set OutApp = Nothing
End Sub代码解释：
- .GetInspector.WordEditor 获取 Outlook 邮件的 Word 编辑器对象，允许我们访问 Word 对象模型。
- wdDoc.Range 获取整个文档的范围。
- wdRange.Font.Name = "Calibri" 设置字体为 Calibri。
- wdRange.Font.Size = 11 设置字体大小为 11 磅。
注意事项：
- 需要引用 Microsoft Word Object Library。 在 VBA 编辑器中，选择 "工具" -> "引用"，然后勾选 "Microsoft Word xx.0 Object Library" (xx 是你的 Word 版本号)。
- 这种方法会修改整个邮件正文的字体，如果需要对特定部分应用不同的字体，可以使用 wdDoc.Range 对象选择特定范围进行修改。
- 此方法依赖于 Word 对象模型，确保用户的计算机上安装了 Microsoft Word。
总结：
本文介绍了两种在 VBA 中修改 Outlook 邮件字体的方法。 第一种方法通过在 HTML 正文中设置字体样式，简单直接，但较为繁琐。 第二种方法利用 Word 对象模型，更加灵活，可以对整个文档或特定部分进行字体设置。 根据实际需求选择合适的方法，可以有效控制 Outlook 邮件的字体样式，提升邮件的专业性和可读性。
