VBA生成Outlook邮件：正确设置HTML正文字体样式与大小

在使用vba为outlook生成邮件时，直接设置html正文的字体大小和使用`vbtab`常会导致样式不一致或无效。本文将指导您如何通过使用规范的html和css样式属性，如`

`，来确保字体大小、类型和缩进在outlook邮件中得到准确且可预测的呈现，避免使用已弃用的``标签和纯文本控制字符。

VBA生成Outlook邮件时的字体样式与缩进挑战

在使用VBA代码通过Outlook应用程序接口（API）创建新邮件并设置其HTML正文时，开发者经常会遇到一个常见问题：即使在代码中明确指定了字体大小，实际生成的邮件中字体大小却与预期不符。例如，代码中设置size=5可能在邮件中显示为18磅，而size=6可能显示为24磅。此外，用于文本缩进的vbTab字符在HTML正文中也往往不起作用。

以下是导致这些问题的一个典型代码示例：

Sub Send_Email()

    Dim objOutlookApp As New Outlook.Application
    Dim myEmail As Outlook.MailItem
    Set myEmail = objOutlookApp.CreateItem(olMailItem)
    myEmail.BodyFormat = olFormatHTML

    myEmail.Display

    Dim Strbody As String

    Strbody = "<h5>Dears,</h5>" & vbCrLf & vbTab & _
              "<font face = Times New Roman size= 5 font color=Brown>This a test string</font>"

    myEmail.HTMLBody = Strbody & myEmail.HTMLBody

End Sub

在这段代码中，font标签的size属性和vbTab的使用未能达到预期的效果。

理解Outlook的HTML渲染机制

Outlook作为一款邮件客户端，其HTML渲染引擎与现代网页浏览器有所不同。它通常使用Microsoft Word的渲染引擎来显示HTML内容，这意味着它对HTML和CSS的解释可能存在一些特异性，并且对旧的、已弃用的HTML标签（如<font>）的支持可能不够完善或行为不一致。

立即学习“前端免费学习笔记（深入）”；

1. font标签的size属性问题：HTML的<font>标签及其size属性是HTML 4.01规范中的旧有元素，在HTML5中已被弃用。现代HTML推荐使用CSS来控制字体样式。Outlook在处理这些旧标签时，可能会将其size属性值映射到其内部的字体磅值（pt）系统，但这种映射关系可能不直观，导致与代码设置不符的显示结果。
2. vbTab的无效性：vbTab是一个VBA中的纯文本控制字符，用于在文本字符串中插入一个制表符。然而，HTML是一种标记语言，它不直接解释纯文本控制字符来控制布局。在HTML中，空白字符（包括制表符、换行符等）通常会被浏览器或渲染引擎合并为一个空格。要实现缩进，需要使用特定的HTML标签或CSS样式。

解决方案：使用规范的HTML与CSS样式

为了确保在Outlook邮件中获得准确且可预测的字体样式和布局，最佳实践是采用规范的HTML结构并结合CSS样式。

1. 正确设置字体大小、类型和颜色

推荐使用HTML块级元素（如<p>、<div>）并为其添加内联CSS style 属性来定义字体样式。这样可以更精确地控制字体大小、类型和颜色，并且与Outlook的渲染引擎兼容性更好。

uBrand Logo生成器

uBrand Logo生成器是一款强大的AI智能LOGO设计工具。

57

查看详情

• 字体大小 (font-size): 使用pt（磅）或px（像素）等单位明确指定字体大小。例如：font-size:11pt;
• 字体类型 (font-family): 指定字体名称。例如：font-family:Calibri;
• 字体颜色 (color): 指定颜色值。例如：color:Brown; 或 color:#A52A2A;

将上述样式组合到一个style属性中，应用于一个段落标签：

<p style='font-size:11pt; font-family:Times New Roman; color:Brown;'>This is a test string</p>

2. 实现HTML内容缩进

由于vbTab在HTML中无效，我们需要使用CSS样式或HTML实体来创建缩进。

• CSS text-indent: 用于首行缩进。例如：<p style='text-indent:2em;'>。em是相对单位，2em通常表示两个当前字体大小的宽度。
• CSS margin-left: 用于整个段落左侧的外边距。例如：<p style='margin-left:40px;'>。
• HTML非中断空格 ( ): 如果只需要简单的几个空格进行缩进，可以使用 实体。例如：    。

通常，使用text-indent或margin-left是更专业的做法。

完整示例代码

结合上述解决方案，以下是优化后的VBA代码，可以确保字体样式和缩进在Outlook邮件中正确显示：

Sub Send_Email_Corrected()

    Dim objOutlookApp As New Outlook.Application
    Dim myEmail As Outlook.MailItem
    Set myEmail = objOutlookApp.CreateItem(olMailItem)
    myEmail.BodyFormat = olFormatHTML

    myEmail.Display

    Dim Strbody As String

    ' 使用规范的HTML和CSS样式
    ' 对于“Dears,”，可以放在一个段落中，并使用CSS来控制其样式
    Strbody = "<p>Dears,</p>" & _
              "<p style='text-indent:2em; font-family:Times New Roman; font-size:11pt; color:Brown;'>This is a test string with proper indentation and styling.</p>"
    ' 注意：vbCrLf 在 HTMLBody 中会被解释为换行，但为了更好的控制，通常建议使用 <br> 或新的 <p> 标签。
    ' 这里为了与原问题保持一致，保留了vbCrLf，但更推荐使用HTML标签。
    ' 实际应用中，如果每个<p>标签后需要额外空间，HTML会自动处理，或者使用 margin-bottom。

    myEmail.HTMLBody = Strbody & myEmail.HTMLBody

End Sub

在这个修正后的代码中：

• 我们使用<p>标签来包裹文本内容，这是HTML中表示段落的标准方式。
• 通过style属性，我们为第二个段落明确设置了text-indent（首行缩进）、font-family（字体类型）、font-size（字体大小）和color（字体颜色）。
• text-indent:2em; 将创建两倍于当前字体大小的首行缩进。您可以根据需要调整em值或使用px。
• font-size:11pt; 将字体大小精确设置为11磅。

注意事项与最佳实践

1. 始终使用规范HTML和CSS：避免使用已弃用的HTML标签和属性（如<font>），转而使用CSS进行样式控制。
2. 单位选择：对于字体大小，pt（磅）在邮件客户端中通常表现稳定，与Word中的磅值概念一致。
3. 内联样式：虽然外部CSS文件或内部<style>标签是网页开发的标准，但在VBA生成Outlook邮件的场景下，内联样式（即直接在HTML标签的style属性中定义）往往是最可靠的方式，因为许多邮件客户端会对外部或内部样式表进行过滤。
4. Outlook渲染特性：请记住，Outlook的HTML渲染引擎可能与Web浏览器有所不同。在部署之前，务必在不同版本的Outlook中进行充分测试，以确保样式按预期显示。
5. 换行与段落：在HTML中，vbCrLf通常会被解释为换行，但更好的做法是使用<br>标签进行强制换行，或者使用<p>标签来创建独立的段落，由浏览器/客户端自动添加段落间距。

总结

通过VBA生成Outlook邮件时，要确保字体样式和布局的准确性，关键在于摒弃对旧有HTML标签和纯文本控制字符的依赖，转而采用规范的HTML结构和CSS样式。利用style属性精确控制font-size、font-family、color以及text-indent或margin-left等CSS属性，能够有效解决字体大小不一致和缩进失效的问题，从而生成专业且符合预期的邮件内容。遵循这些最佳实践，将大大提升您通过VBA自动化生成Outlook邮件的可靠性和表现力。

以上就是VBA生成Outlook邮件：正确设置HTML正文字体样式与大小的详细内容，更多请关注php中文网其它相关文章！