Как вставить текст в создаваемое письмо с помощью Visual Basic

Это можно сделать, например, с помощью следующей простой макрокоманды, которая создает новое письмо, автоматически заполняет его содержимое и далее предоставляет пользователю возможность вводить остальную информацию и отправлять письмо:

Листинг 1.

Sub NewMailToVasya()

  ' создание нового письма  

  Dim myMail As MailItem  

  Set myMail = CreateItem(olMailItem)  

  ' заполнение его полей  

  myMail.To = "vasya@mail.ru"  

  myMail.Subject = "Привет!"  

  myMail.body = "Вася!" & vbCrLf & _  

    "Я тут придумал такую классную штуку."  

  myMail.Display  ' выводим окно и дополняем текст  

End Sub

Но возможен и другой вариант — вы уже создали новое письмо и хотите в процессе его ввода сделать вставку какого-то текста.
В этом случае вам пригодится макрокоманда такого вида:

Листинг 2.

Sub InsertText() 

    'Вставить текст в текущее окно  

    Dim myMail As MailItem  

    ' выбирает текущее окно (т. е. нового письма)  

    Set myMail = Application.ActiveInspector.CurrentItem  

    myMail.body = myMail.body + " Привет семье!"  

End Sub