如何在VBA将Excel单元格值导入Outlook时保留单元格内换行间距

问题根因 #

你遇到的问题本质是HTML格式邮件的渲染规则导致的：olNewMail.HTMLBody 是按HTML语法解析内容的，而HTML会默认忽略所有普通ASCII换行符（也就是Excel中用的Char(10)，VBA中对应常量为vbLf），只有<br />标签才会被识别为换行展示。

解决方案 #

只需要在读取单元格内容后，把所有的Char(10)替换为HTML换行标签即可，修改后的代码如下：

' 读取单元格内容同时将换行符替换为HTML换行标签
strUpdateNotes = Replace(Range("D" & i).Text, vbLf, "<br />")
olNewMail.HTMLBody = "Happy Friday!" & _
                    "<br />" & _
                    "<br />" & _
                    "Weekly Project Update!" & _
                    "<br />" & _
                    "<br />" & _
                    "Current Comments on the project:" & _
                    "<br />" & _
                    strUpdateNotes & _
                    "<br />" & _
                    "<br />" & _
                    "Let me know if you have any questions. Have a fantastic weekend!"

可选优化方案 #

• 如果部分单元格存在Char(13)（回车符，VBA对应常量vbCr）残留，可以先清除再替换，避免异常格式：

  strUpdateNotes = Replace(Replace(Range("D" & i).Text, vbCr, ""), vbLf, "<br />")
  

• 如果想要备注部分展示为无序列表样式、可读性更高，可以做如下调整：

  Dim noteArr As Variant, iNote As Integer
  noteArr = Split(Range("D" & i).Text, vbLf)
  strUpdateNotes = "<ul>"
  For iNote = LBound(noteArr) To UBound(noteArr)
      If Trim(noteArr(iNote)) <> "" Then
          strUpdateNotes = strUpdateNotes & "<li>" & noteArr(iNote) & "</li>"
      End If
  Next
  strUpdateNotes = strUpdateNotes & "</ul>"
  

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