Сохранять новые строки из текстового поля при отправке электронной почты Outlook

Question

Я бы хотел, чтобы пользователь заполнил текстовое поле и чтобы его ввод отображался с разделенными строками таким же образом, когда я отправляю его через outlook. В настоящее время значение текстового поля переформатируется путем удаления новых строк при его переносе в outlook. Свойство ".HTMLBody" игнорирует отдельные строки?

Вот скриншот того, как информация вводится в текстовое поле.

Вот скриншот того, как информация отображается в outlook.

Каковы мои варианты, чтобы новые строки в текстовом поле сообщения оставались когда значение текстового поля используется outlook? Вот код, который я использую для этого.

Dim message As String

Dim olApp As Outlook.Application
Dim olEmail As Outlook.MailItem

Set olApp = New Outlook.Application
Set olEmail = olApp.CreateItem(olMailItem)

message = tbScript

With olEmail
    .BodyFormat = olFormatHTML
    .HTMLBody = message
    .To = "test@gmail.com"
    .Send
End With

Answer 1

Да, HTML обычно игнорирует разрывы строк. Вам необходимо заменить разрывы строк тегами <br>.

Или, так как вы все равно устанавливаете значение в виде открытого текста, задайте свойство простого текста MailItem.Body вместо MailItem.HTMLBody.