VBA 修改 Outlook 邮件字体：详细教程

本文旨在指导 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 对象模型来控制邮件正文的格式。

爱改写

AI写作和改写润色工具

查看详情

示例代码：

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 邮件的字体样式，提升邮件的专业性和可读性。