Строка текста слишком длинная в VBA

Question

Я пытаюсь написать макрос для отправки готового ответа. У меня проблема в том, что тело текста слишком длинное, чтобы поместиться в одной строке в моем коде. Я понятия не имею, как получить второй абзац основного текста. Я также пытаюсь оставить свое имя внизу ответа - стиль подписи. Я получаю сообщение об ошибке при попытке запуска макроса о том, что строка слишком длинная. Может кто-нибудь, пожалуйста, помогите мне? Это то, что у меня так далеко.

Sub EmailReply()
Dim Reply As Outlook.MailItem
Dim Original As Outlook.MailItem
Set Original = Application.ActiveExplorer.Selection(1)
Set Reply = Original.Reply

Reply.Subject = "In reference to your inquiry."

Reply.Body = "Dear Client," & vbNewLine & vbNewLine & "     We thank you for consulting our firm regarding your legal issue. Unfortunately, upon a review of the information provided we are unable to assist you at this time. We encourage you to seek another legal option as there may be a strict statue of limitation that may extinguish your legal rights in your manner." & vbNewLine & "     Although you did not retain us in this matter, we encourage you to contact us in the future for any legal needs or questions that you may have. Of course, there is no charge for consultation."

Reply.Display

End Sub

Answer 1

Попробуйте использовать vbNewLine и _ вот так:

Reply.Body = "Dear Person"  & vbNewLine & vbNewLine & _
"Line1" & vbNewLine & _
"Line2" & vbNewLine & _
"Line3" & vbNewLine & vbNewLine & _
"Sincerely," & vbNewLine & _
"Me"

vbNewLine представляет символ новой строки

_ сообщает VBA, что текущее утверждение не закончено.

Answer 2

Я вообще не использовал VBA в Ms Outlook или большую часть VBA, но если есть ограничение длины строки, вы можете определить отдельные переменные и объединить их

например, a = "asdf" b = "qwert" c = a & vbNewLine & b

Итак, вы знаете, как объединять строки, как у вас уже есть, но вы также можете просто использовать отдельные переменные

Answer 3

Вы хотите, чтобы текст появлялся в электронном письме в виде нескольких абзацев или просто появлялся в коде в виде отдельных строк?

Для первых:

eply.Body = "Dear Client," & vbNewLine & vbNewLine & "     We thank you for consulting our firm regarding your legal issue." & vbNewLine & vbNewLine & " Unfortunately, ..."

Другими словами, вам нужно вместе 2 vbNewLines при вводе только текста (а не письма в формате HTML).

В последнем случае:

"........"  & _
"... more text ..."

и так далее.