在Outlook自动化办公里，通过VBA批量生成带格式的邮件是常见需求。当邮件正文采用HTML格式时，把姓名、日期、金额等字符串变量嵌入到表格或段落中，如果拼接方式不对，收件人看到的可能是一堆带尖括号的源码，或者变量内容把标签属性引号提前关闭，造成版式崩坏。理解Outlook对象模型里HTMLBody字段的解析逻辑，是写出稳定代码的前提。
HTMLBody赋值与字符串拼接的基础原理
Outlook的MailItem对象提供一个名为HTMLBody的属性，该属性接收一段完整的HTML字符串。与Body属性不同，HTMLBody不会把内容当作纯文本，而是交给Word编辑器按HTML规则渲染。很多初学者在代码中用&符号连续拼接，例如html = "<p>你好" & name & "</p>"，这种方式在变量不含特殊字符时可行，但一旦name中出现<或"，整个结构就会错位。
更隐蔽的问题是VBA中字符串内的双引号必须用两个双引号表示，例如要写出class="x"必须写成"class=""x"""。当HTML属性引号与VBA字符串引号纠缠，代码可读性急剧下降，也容易漏写转义。下面这段错误示例展示了典型陷阱：变量中的引号提前结束标签，使后续内容溢出到页面文本。
Dim html As String Dim name As String name = "张三"" onclick=alert(1)" html = "<p class=""greet"">你好 " & name & "</p>" Set mail = Application.CreateItem(olMailItem) mail.HTMLBody = html
上述代码生成的HTML变成<p class="greet">你好 张三" onclick=alert(1)</p>，属性被注入，不仅样式乱，还引入安全风险。因此拼接前必须对变量做HTML转义，把<转为<，"转为"。
使用占位符替换法安全嵌入变量
相比直接加号连接，先写好带占位符的HTML模板，再用Replace函数把占位符换成转义后的变量，是更清晰的方案。这样HTML结构与数据分离，引号只在模板里出现一次，不需要在拼接时反复转义VBA引号。我们可以定义一个转义函数，集中处理特殊字符。
下面的代码演示了模板法与转义函数的配合。先准备包含{{name}}和{{date}}的HTML字符串，再调用HtmlEncode处理用户输入，最后替换。这种方式让正文在任何变量内容下都保持合法HTML，Outlook也能正确渲染表格与样式。
Function HtmlEncode(s As String) As String
s = Replace(s, "&", "&")
s = Replace(s, "<", "<")
s = Replace(s, ">", ">")
s = Replace(s, """", """)
HtmlEncode = s
End Function
Sub SendReport()
Dim tpl As String
tpl = "<html><body><h2>周报</h2>" & _
"<p>负责人：{{name}}</p>" & _
"<p>日期：{{date}}</p></body></html>"
Dim name As String, dt As String
name = "李四"
dt = "2024-03-01"
Dim body As String
body = Replace(tpl, "{{name}}", HtmlEncode(name))
body = Replace(body, "{{date}}", HtmlEncode(dt))
Dim mail As Outlook.MailItem
Set mail = Application.CreateItem(olMailItem)
mail.HTMLBody = body
mail.Subject = "自动周报"
mail.Display
End Sub
这种写法的优势在于模板可独立维护，如果以后要加CSS样式，只改tpl即可。变量转义集中处理，避免了在多处拼接时遗漏。对于包含换行的内容，可在HtmlEncode中把vbCrLf替换为<br>，使文本换行在邮件中生效。
拼接多段动态列表与性能注意点
实际业务中常需把数据库记录或数组循环拼成HTML表格。若在循环里反复用&连接大字符串，VBA的字符串不可变特性会导致大量临时对象，数据量大时明显变慢。建议用数组收集每行HTML，最后用Join合并，既清晰又减少拼接次数。
以下示例把员工列表生成为表格行。先用ReDim数组，循环中填入转义后的<tr>片段，结束再用Join(rows, "")得到所有行，嵌入模板。这样即使一百条数据也不会让代码冗长，且每行都经过HtmlEncode，避免字段含逗号或引号破坏结构。
Sub SendList()
Dim names() As String
names = Split("王五,赵六,孙七", ",")
Dim rows() As String
ReDim rows(0 To UBound(names))
Dim i As Integer
For i = 0 To UBound(names)
rows(i) = "<tr><td>" & HtmlEncode(names(i)) & "</td></tr>"
Next i
Dim tpl As String
tpl = "<table border='1'>" & Join(rows, "") & "</table>"
Dim mail As Outlook.MailItem
Set mail = Application.CreateItem(olMailItem)
mail.HTMLBody = tpl
mail.Display
End Sub
要注意的是，VBA中Join仅支持一维数组，且分隔符若为HTML片段需用双引号包裹。如果模板含外部CSS，可放在<style>标签内，但Outlook部分版本会剔除头部样式，稳妥做法是用内联style属性。通过上述方法，开发者能在HTML邮件正文中正确拼接字符串变量，兼顾安全与可维护性。
Outlook_VBAHTML_emailstring_concatenation修改时间：2026-08-17 08:28:29