сформировать письмо Outlook средствами VBA

[Leon_]

Подскажите!
Требуется программно в среде VBA (точнее, Access) сформировать
некий текст и отправить адресату письмом. Как?
Спасибо.

[Tuco]

Dim adrBook As Outlook.AddressList
Dim adrEntry As Outlook.AddressEntry
Dim newMessage As Outlook.MailItem
Dim newRecipient As Outlook.Recipient
Dim strAddress As String
Dim myOutlookApp As Outlook.Application
Dim MessageSubject As String
Dim MessageBody As String

MessageSubject = "тема письма
MessageBody = "содержание письма
strAddress = "адрес"

Set myOutlookApp = New Outlook.Application

Set newMessage = myOutlookApp.CreateItem(olMailItem)
newMessage.Subject = MessageSubject
newMessage.Body = MessageBody

Set newRecipient = newMessage.Recipients.Add(strAddress)

newMessage.Send

ну а текст письма нужно сормировать и поместить в переменную... Это всё нужно в Аксессе написать, и подключить Microsoft OutLook Library

[Leon_]

Спасибо! Это то, что мне нужно.
Удивлен оперативностью реакции

Тогда еще один вопрос, не в тему..

Не могу определиться -- нужно ли в этом случае
после назначения объектных переменных
(или как это правильно называется)
вроде следующего:
"Set myOutlookApp = New Outlook.Application
Set newMessage = myOutlookApp.CreateItem(olMailItem)
Set newRecipient = newMessage.Recipients.Add(strAddress) "
потом обязательно освобождать их
присваиванием Nothing?
(myOutlookApp = Nothing)