ник: Joss
В качестве исходного примера использую статью Олега "Способы интеграции MS ACCESS и MS Outlook "
Поскольку при попытке отослать письмо Outlook запрашивает подтверждение на это действие, решил просто сохранить письма в папке "Исходящие". А они сохраняются в папке "Входящие". Кто знает как переключить на нужную папку?
Для примера текст процедуры
'создает новое письмо с вложением для нескольких адресатов
Dim OL_App As Outlook.Application
Dim OL_ItemMail As Outlook.MailItem
Dim RecipientTask As Recipient
Dim OL_Pattern As Outlook.RecurrencePattern
Set OL_App = CreateObject("Outlook.Application") ' получаем объект Outlook
Set OL_ItemMail = OL_App.CreateItem(olMailItem) ' создаем новое письмо
With OL_ItemMail
.To = "Мой@адрес" 'адрес получателя
.Subject = "Тест программы" & " за " & CStr(Date) ' заголовок письма
.Body = "Тело тестового сообщения"
' .OriginatorDeliveryReportRequested = True 'Уведомление о доставке
' .ReadReceiptRequested = True 'Уведомление о прочтении
.Save ' сохраним письмо - если использовать только это действие, письмо сохраняется в папке "Входящие", а надо "Исходящие"
If Not Me.NoSend Then
.Send ' отправим письмо - а если используется и это действие, то письмо сохраняется в папке "Отправленные"
End If
End With
Set OL_ItemMail = Nothing ' очищаем объект
|