本文将介绍如何使用 VBA 代码来修改 Outlook 邮件的字体和大小。正如摘要所述，我们可以通过两种主要方法来实现这一目标：直接在 HTML 正文中指定字体样式，或者使用 Word 对象模型。
方法一：在 HTML 正文中指定字体样式
这种方法简单直接，通过在 HTML 代码中嵌入 <font> 标签和 style 属性，可以精确控制邮件内容的字体、大小和样式。
示例代码：
Sub Mail_Outlook_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" ' 替换为收件人邮箱地址
.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 font-family: Calibri; font-size: 11pt;"">" ： 定义了字体样式，包括字体类型（Calibri）和字体大小（11pt）。将需要设置样式的文本内容放置在 <font> 标签内。
- "<br>"：HTML 换行符，用于在邮件内容中添加空行。
注意事项：
- 这种方法需要对 HTML 有一定的了解。
- 对于复杂的邮件格式，手动添加 <font> 标签可能会比较繁琐。
方法二：使用 Word 对象模型
Outlook 的 Inspector 对象的 WordEditor 属性可以返回一个 Word Document 对象，从而可以使用 Word 对象模型来操作邮件正文。这种方法更强大，可以实现更复杂的格式设置。
示例代码：
Sub Mail_Outlook_Font_Word()
Dim OutApp As Object
Dim OutMail As Object
Dim wdDoc As Object ' Word Document 对象
Dim oInsp As Object ' Inspector 对象
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.SentOnBehalfOfName = "your_email@example.com" ' 替换为你的邮箱地址
.Display
.To = "recipient@example.com" ' 替换为收件人邮箱地址
.Subject = "Report"
Set oInsp = .GetInspector
Set wdDoc = oInsp.WordEditor
wdDoc.Range.Text = "Hello, " & vbCrLf & vbCrLf & "Please find in attachment the Report." & vbCrLf & "We remain available should you have any questions."
With wdDoc.Range
.WholeStory
.Font.Size = 11
.Font.Name = "Calibri"
End With
.CC = "cc@example.com" ' 替换为抄送人邮箱地址
.BCC = ""
End With
Set wdDoc = Nothing
Set oInsp = Nothing
Set OutMail = Nothing
Set OutApp = Nothing
End Sub代码解释：
- .GetInspector：获取邮件的 Inspector 对象。
- .WordEditor：获取 Inspector 对象的 WordEditor 属性，返回一个 Word Document 对象。
- wdDoc.Range.Text: 设置邮件正文内容
- wdDoc.Range.WholeStory：选中整个文档。
- .Font.Size = 11：设置字体大小为 11。
- .Font.Name = "Calibri"：设置字体类型为 Calibri。
注意事项：
- 这种方法需要引用 Microsoft Word 对象库。在 VBA 编辑器中，选择 "工具" -> "引用"，然后勾选 "Microsoft Word xx.0 Object Library" (xx 代表 Word 版本号)。
- 使用 Word 对象模型可以实现更复杂的格式设置，例如设置段落格式、添加表格等。
总结
本文介绍了两种使用 VBA 修改 Outlook 邮件字体的方法。第一种方法通过在 HTML 正文中指定字体样式，简单直接，适用于简单的格式设置。第二种方法使用 Word 对象模型，功能强大，可以实现更复杂的格式设置。开发者可以根据实际需求选择合适的方法。选择哪种方法取决于邮件格式的复杂程度和个人偏好。建议优先考虑 HTML 方式，简单直接。如果需要更复杂的格式控制，则考虑使用 Word 对象模型。
