使用 VBA 修改 Outlook 邮件字体

本文将介绍如何使用 VBA 代码来修改 Outlook 邮件的字体和大小。正如摘要所述，我们可以通过两种主要方法来实现这一目标：直接在 HTML 正文中指定字体样式，或者使用 Word 对象模型。

方法一：在 HTML 正文中指定字体样式

这种方法简单直接，通过在 HTML 代码中嵌入 标签和 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

代码解释：

“” ：定义了字体样式，包括字体类型（Calibri）和字体大小（11pt）。将需要设置样式的文本内容放置在 标签内。
“ ”：HTML 换行符，用于在邮件内容中添加空行。

注意事项：

这种方法需要对 HTML 有一定的了解。
对于复杂的邮件格式，手动添加 标签可能会比较繁琐。

方法二：使用 Word 对象模型

Outlook 的 Inspector 对象的 WordEditor 属性可以返回一个 Word Document 对象，从而可以使用 Word 对象模型来操作邮件正文。这种方法更强大，可以实现更复杂的格式设置。

爱改写

AI写作和改写润色工具

查看详情

示例代码：

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 对象模型。