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