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


Для версии Microsoft Access 97 в данной статье см.
161088 .
Дополнительно: Требует высокой квалификации в программировании, взаимодействия и программирования в многопользовательской среде.

В данной статье относится к базе данных Microsoft Access (.mdb) и для проекта Microsoft Access (.adp).

В ЭТОЙ ЗАДАЧЕ

Обзор


В этой статье показано, как с помощью автоматизации для создания и отправки сообщения Microsoft Outlook в Microsoft Access 2000.


Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и без явных или подразумеваемых гарантий. Это включает, но не ограничиваясь, подразумеваемые гарантии товарной пригодности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с демонстрируемым языком программирования и средствами, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут объяснить возможности конкретной процедуры, но не выполнять модификации примеров для обеспечения дополнительных функциональных возможностей или создания процедур для определенных требований.
Примечание: Следующий код может работать неправильно после установки обновления безопасности электронной почты Outlook. Дополнительные сведения об этом обновлении обратитесь одной из следующих статей в базе знаний Майкрософт, в зависимости от используемой версии Outlook имеется:
262631 OL2000: сведения об обновлении безопасности электронной почты Outlook
262617 OL98: сведения об обновлении безопасности электронной почты Outlook
Можно использовать метод ОтправитьОбъект для отправки сообщения электронной почты MAPI программным способом в Microsoft Access. Тем не менее, метод ОтправитьОбъект не дает доступа для выполнения функций электронной почты, например, возможность подключить внешний файл или задать важность сообщения. В следующем примере используется автоматизации для создания и отправки почтового сообщения, которое можно использовать для использования преимуществ много возможностей в Microsoft Outlook, которые недоступны с помощью метода ОтправитьОбъект .

Существует шесть этапов для отправки сообщения электронной почты Microsoft Outlook с помощью автоматизации, как показано ниже:

  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



Ссылки


Дополнительные сведения об использовании автоматизации в Microsoft Access, в редакторе Visual Basic в меню Справка щелкните Справка по Microsoft Visual Basic, «Автоматизация» введите в поле помощника Office или мастера ответов и нажмите кнопку поиска, чтобы просмотреть раздел.
209963 ACC2000: как с помощью автоматизации добавлять встречи в Microsoft Outlook
209955 ACC2000: использование автоматизации для создания нового элемента контакта в Microsoft Outlook