Question

我想在电子邮件正文中添加新行，并使用vbNewLine和vbCrLf但无法成功。请告知我如何在电子邮件正文中添加新行。电子邮件正文中的所有内容都反映在一行中。

On Error Resume Next
    With OutMail
        .To = ".com"
        .Subject = "Test"
        .HTMLBody = ThisWorkbook.Sheets(2).Range("A14").Value & vbCrLf & ThisWorkbook.Sheets(2).Range("A15").Value & " " & ThisWorkbook.Sheets(2).Range("A16").Value & vbCrLf & vbNewLine & RangetoHTML(rng)
        .Send

    End With

Answer 1

也许您应该更改.HTMLBody行：

On Error Resume Next
With OutMail
        .To = ".com"
        .Subject = "Test"
        .HTMLBody = ThisWorkbook.Sheets(2).Range("A14").Value & chr(10) & _
                    ThisWorkbook.Sheets(2).Range("A15").Value & " " & _
                    ThisWorkbook.Sheets(2).Range("A16").Value & chr(10) & RangetoHTML(rng)
        .Send
End With

chr(10)应该成功（添加一个新行）。请注意，_只是将vba代码拆分为多行以提高可读性。

HTH;）

VBA在outlook中显示电子邮件正文中的新行

1 个答案: