如何将Access窗体文本框值导入Outlook邮件正文？

Hey there, 我看你已经搭好了基础的代码结构，不过直接拼接RangetoHTML的输出和文本框内容可能会遇到格式问题——毕竟前者是HTML格式，后者是纯文本，直接拼的话换行之类的格式不会被Outlook正确识别。下面给你优化一下代码，顺便解决几个小细节：

关键改进点 #

• 把文本框的纯文本内容转换成HTML兼容的格式，比如把换行符替换成<br>，如果有特殊字符（比如&、<）也转义一下，避免破坏HTML结构。
• 修正了代码里的拼写错误：olPromtForSave应该是olPromptForSave（少了个p）。

优化后的完整代码 #

With OutMail
    .SentOnBehalfOfName = ""
    .To = ""
    .CC = ""
    .Subject = "Test"
    
    ' 处理文本框内容，转换成HTML格式
    Dim txtContent As String
    txtContent = Form_FactorCoupon.Text25
    ' 替换各种换行符为HTML换行标签
    txtContent = Replace(txtContent, vbCrLf, "<br>")
    txtContent = Replace(txtContent, vbCr, "<br>")
    txtContent = Replace(txtContent, vbLf, "<br>")
    ' 转义HTML特殊字符（如果你的文本框里可能包含&、<、>等符号的话）
    txtContent = Replace(txtContent, "&", "&amp;")
    txtContent = Replace(txtContent, "<", "&lt;")
    txtContent = Replace(txtContent, ">", "&gt;")
    
    ' 拼接Excel的HTML内容和处理后的文本框内容，用两个换行分隔开更美观
    .HTMLBody = RangetoHTML(objExcel, rng) & "<br><br>" & txtContent
    
    .Save
    .Close olPromptForSave ' 修正拼写错误
End With

额外小贴士 #

• 如果想给文本框的内容加样式（比如改字体、字号），可以把它包裹在<div>标签里，比如：

  txtContent = "<div style='font-family: Calibri; font-size: 11pt; color: #333;'>" & txtContent & "</div>"
  

• 要是你的RangetoHTML函数返回的HTML已经包含了<body>标签，那最好把文本框内容插在</body>之前，或者确保拼接后的HTML结构是完整的——不然可能会导致邮件布局错乱。

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