如何为Outlook邮件olMail.Body设置字体并正确显示变量值？

你遇到的核心问题是HTMLBody里的变量没有被正确解析——你把变量名直接写在了字符串引号里，VBA会把它当成普通文本输出，而不是读取变量的实际值。另外，olMail.Body是纯文本格式，确实没法直接设置字体样式，所以正确的做法是修复HTMLBody的变量拼接逻辑，同时保留字体格式。

问题根源分析 #

你的原代码中这一行是错误的：

olMail.HTMLBody = "<BODY style=font-size:10pt;font-family:Verdana>str1 + str2 + str3 + str4</BODY>"

这里的str1 + str2 + str3 + str4被包含在双引号内，属于字符串的一部分，VBA不会执行变量拼接，只会原样输出文本内容。

修正方案：正确拼接HTML内容 #

我们需要把变量和HTML字符串用&连接，同时注意把VBA里的vbNewLine替换成HTML的换行标签<br>（因为HTML不识别vbNewLine），这样邮件内容既会显示变量的真实值，又能应用指定的字体样式。

修正后的完整代码：

Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim str4 As String
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)

olMail.To = reviewer_email_id
olMail.Subject = "Task for Review"
olMail.BodyFormat = olFormatHTML

' 拼接邮件内容，将VBA换行符替换为HTML换行标签<br>
str1 = "Dear Mr. " & reviewer & ", <br><br>Please see below details for review (Workbook attached).<br><br>"
str2 = "Task : " & title & "<br>Location : " & document_location & "<br>Start Date : " & start_date & "<br>End Date : " & end_date & "<br><br>"
str3 = "Await your Feedback.<br><br>"
str4 = "Regards <br>" & assigned_to

' 正确拼接HTML模板和变量内容
olMail.HTMLBody = "<BODY style='font-size:10pt;font-family:Verdana;'>" & str1 & str2 & str3 & str4 & "</BODY>"

olMail.Send

关键注意事项 #

• 变量拼接规则：必须用&连接字符串和变量，不能把变量放在引号内部，否则VBA会将其视为普通文本。
• HTML换行处理：VBA的vbNewLine在HTML中不会生效，要替换成<br>标签来实现内容换行。
• 样式引号规范：建议给style属性里的样式值加上单引号，避免特殊字符导致样式失效。

关于olMail.Body的补充说明 #

olMail.Body是纯文本格式，Outlook会使用默认字体显示内容，无法直接设置自定义字体样式。如果一定要用纯文本格式，只能依赖收件人Outlook的默认字体设置，所以更推荐用olFormatHTML来实现自定义样式需求。

内容的提问来源于stack exchange，提问作者Aman Devrath