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

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;）