本文将介绍如何使用 VBA 代码来修改 Outlook 邮件的字体和大小。正如摘要所述，我们可以通过两种主要方法来实现这一目标：直接在 HTML 正文中指定字体样式，或者使用 Word 对象模型。
方法一：在 HTML 正文中指定字体样式
这种方法简单直接，通过在 HTML 代码中嵌入 标签和 style 属性，可以精确控制邮件内容的字体、大小和样式。
示例代码：
代码解释：
"" ： 定义了字体样式，包括字体类型（Calibri）和字体大小（11pt）。将需要设置样式的文本内容放置在 标签内。
"
"：HTML 换行符，用于在邮件内容中添加空行。 注意事项： 这种方法需要对 HTML 有一定的了解。 对于复杂的邮件格式，手动添加 标签可能会比较繁琐。 方法二：使用 Word 对象模型 Outlook 的 Inspector 对象的 WordEditor 属性可以返回一个 Word Document 对象，从而可以使用 Word 对象模型来操作邮件正文。这种方法更强大，可以实现更复杂的格式设置。 AI Word 一款强大的 AI 智能内容创作平台，致力于帮助用户高效生成高质量、原创且符合 SEO 规范的各类文章。 下载 示例代码：
代码解释：
.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 对象模型。
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 = "Hello," & "
" & "
" & _
"Please find in attachment the Report." & "
" & _
"We remain available should you have any questions." & .HTMLBody
.CC = "cc@example.com" ' 替换为抄送人邮箱地址
.BCC = ""
.Subject = "Report"
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub"：HTML 换行符，用于在邮件内容中添加空行。 注意事项： 这种方法需要对 HTML 有一定的了解。 对于复杂的邮件格式，手动添加 标签可能会比较繁琐。 方法二：使用 Word 对象模型 Outlook 的 Inspector 对象的 WordEditor 属性可以返回一个 Word Document 对象，从而可以使用 Word 对象模型来操作邮件正文。这种方法更强大，可以实现更复杂的格式设置。 AI Word 一款强大的 AI 智能内容创作平台，致力于帮助用户高效生成高质量、原创且符合 SEO 规范的各类文章。 下载 示例代码：
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