Как отправить сообщение Microsoft Outlook, с помощью Microsoft Access 2000 с помощью автоматизации

1. Инициализация сеанса Outlook.
2. Создайте новое сообщение.
3. Добавить получателей (, копия и СК) и разрешения имен.
4. Задайте допустимый свойства, такие как тема, текст и важности.
5. Добавьте вложения (если есть).
6. Отображение отправить сообщение.

Отправка сообщения электронной почты Microsoft Outlook программными средствами

1. Создание примера текстового файла с именем Customers.txt в папке C:\My Documents.
2. Запустите Microsoft Access и откройте учебную базу данных Борей.mdb.
3. Создайте модуль и введите следующую строку в раздел объявлений, если он еще не существует.

   Option Explicit
   

4. В меню Инструменты выберите команду Ссылки.
5. В поле ссылки выберите Библиотека объектов Microsoft Outlook 9.0и нажмите кнопку ОК.
   
   Примечание: Если библиотека объектов Microsoft Outlook 9.0 не отображается в списке Доступные ссылки , найдите на жестком диске файл Msoutl9.olb. Если не удается найти этот файл, необходимо запустить программу установки Microsoft Outlook, чтобы установить перед началом работы с этим примером.
6. В новом модуле введите следующую процедуру:

   Sub SendMessage(Optional AttachmentPath)
      Dim objOutlook As Outlook.Application
      Dim objOutlookMsg As Outlook.MailItem
      Dim objOutlookRecip As Outlook.Recipient
      Dim objOutlookAttach As Outlook.Attachment
   
      ' Create the Outlook session.
      Set objOutlook = CreateObject("Outlook.Application")
   
      ' Create the message.
      Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
   
      With objOutlookMsg
         ' Add the To recipient(s) to the message.
        Set objOutlookRecip = .Recipients.Add("Nancy Davolio")
         objOutlookRecip.Type = olTo
   
         ' Add the CC recipient(s) to the message.
         Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
         objOutlookRecip.Type = olCC
   
         ' Set the Subject, Body, and Importance of the message.
         .Subject = "This is an Automation test with Microsoft Outlook"
         .Body = "Last test - I promise." & vbCrLf & vbCrLf
         .Importance = olImportanceHigh  'High importance
   
         ' Add attachments to the message.
         If Not IsMissing(AttachmentPath) Then
            Set objOutlookAttach = .Attachments.Add(AttachmentPath)
         End If
   
         ' Resolve each Recipient's name.
         For Each objOutlookRecip In .Recipients
            objOutlookRecip.Resolve
            If Not objOutlookRecip.Resolve Then
            objOutlookMsg.Display
         End If
         Next
         .Send
   
      End With
      Set objOutlookMsg = Nothing
      Set objOutlook = Nothing
   End Sub
   

7. Для проверки этой процедуры, введите следующую команду в окне интерпретации и нажмите клавишу ВВОД:

   SendMessage "C:\My Documents\Customers.txt"
   

   Чтобы отправить сообщение без указания вложение, аргумент опущен при вызове процедуры, как показано ниже:

   SendMessage