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