Как создать почтовое сообщение Outlook

[Etc]

Люди помогите
Как програмно создать окно сообщения Outlook

[Sweety]

Dim ola As Outlook.Application
Dim itm As Outlook.MailItem ' Почтовое сообщение

Set ola = New Outlook.Application
Set itm = ola.CreateItem(olMailItem)

itm.Subject = "Тема"
itm.Recipients.Add("электронный адрес")
itm.Attachments.Add ("полный путь к файлу") 'прикрепляем файл

itm.Send ' отправляем письмо
ola.Quit 'Закрываем Outlook