VBAでOutlookの電子メールの本文に新しい行が表示される

Question

電子メールの本文に改行を追加してvbNewLineとvbCrLfを使用しましたが、成功することはできません。電子メールの本文に新しい行を追加するにはどうすればよいのかを教えてください。電子メールの本文にあるすべてのコンテンツは1行に反映されています。

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