Использование службы автоматизации для отправки сообщения Microsoft Outlook с помощью Access 2000
Эта статья относится к базе данных Microsoft Access (.mdb) и к проекту Microsoft Access (ADP).
Сводка
В этой статье показано, как использовать службу автоматизации для создания и отправки сообщения Microsoft Outlook в Microsoft Access 2000.
Корпорация Майкрософт предоставляет примеры программирования только в целях демонстрации без явной или подразумеваемой гарантии. Данное положение включает, но не ограничивается этим, подразумеваемые гарантии товарной пригодности или соответствия отдельной задаче. Эта статья предполагает, что пользователь знаком с представленным языком программирования и средствами, используемыми для создания и отладки процедур. Специалисты технической поддержки Майкрософт могут пояснить работу той или иной процедуры, но модификация примеров и их адаптация к задачам разработчика не предусмотрена.
Примечание.
Приведенный ниже код может работать неправильно, если вы установили обновление для системы безопасности электронной почты Outlook.
Метод можно использовать SendObject
для программной отправки сообщения MAPI в Microsoft Access. SendObject
Однако метод не предоставляет доступ к полным функциям почты, таким как возможность вложить внешний файл или задать важность сообщения. В следующем примере используется служба автоматизации для создания и отправки сообщения электронной почты, с помощью которых можно воспользоваться преимуществами многих функций Microsoft Outlook, недоступных в методе SendObject
.
Существует шесть main шагов для отправки почтового сообщения Microsoft Outlook с помощью службы автоматизации следующим образом:
- Инициализация сеанса Outlook.
- Создайте новое сообщение.
- Добавьте получателей (Кому, КОПИЯ и СК) и разрешите их имена.
- Задайте допустимые свойства, такие как Subject, Body и Importance.
- Добавление вложений (если таковые есть).
- Отображение или отправка сообщения.
Отправка почтового сообщения Microsoft Outlook программным способом
Создайте пример текстового файла с именем Customers.txt в папке C:\My Documents.
Запустите Microsoft Access и откройте пример Northwind.mdb базы данных.
Создайте модуль и введите следующую строку в разделе Объявления, если его еще нет:
Option Explicit
В меню Сервис выберите Ссылки.
В поле Ссылки выберите библиотеку объектов Microsoft Outlook 9.0 и нажмите кнопку ОК.
Примечание.
Если библиотека объектов Microsoft Outlook 9.0 не отображается в поле Доступные ссылки , просмотрите на жестком диске файл Msoutl9.olb. Если вы не можете найти этот файл, необходимо запустить программу установки Microsoft Outlook, чтобы установить его, прежде чем продолжить работу с этим примером.
Введите следующую процедуру в новом модуле:
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
Чтобы протестировать эту процедуру, введите следующую строку в окне Интерпретация и нажмите клавишу ВВОД:
SendMessage "C:\My Documents\Customers.txt"
Чтобы отправить сообщение без указания вложения, опустите аргумент при вызове процедуры следующим образом:
SendMessage
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по