Sub CreateOutlookMail() Dim olApp As Outlook.Application Dim olMailMessage As Outlook.MailItem Dim olRecipient As Outlook.Recipient Dim blnKnownRecipient As Boolean
' Создается новая инстанция к приложению Outlook или открывается новая инстанция Set olApp = New Outlook.Application 'Создание нового сообщения Set olMailMessage = olApp.CreateItem(olMailItem) 'Заполнение письма Адрес в InputBox With olMailMessage Set olRecipient = .Recipients.Add(InputBox("Задайте адрес получателя", _ "Recipient Name")) Set olRecipient = .Recipients = "
Этот e-mail защищен от спам-ботов. Для его просмотра в вашем браузере должна быть включена поддержка Java-script
"
'Здесь задается Тема "Это тест " .Subject = "Это тест" 'Содержание письма "Это сообщение было создано кодом VBA" .Body = "Это сообщение было создано кодом VBA" If blnKnownRecipient = True Then .Send Else .Display End If End With Set olMailMessage = Nothing olApp.Quit Set olApp = Nothing End Sub
!!! И не забудьте добавить в References Microsoft Outlook 9.0 Object Library