Отправить сообщение Microsoft Outlook с помощью автоматизации

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке: 161088
Эта статья помещена в архив. Она предлагается "как есть" и обновляться не будет.
Дополнительно: Требуется изложенный, взаимодействия и многопользовательской навыков.

Аннотация
В данной статье описаны способы использования автоматизации для создания и отправки MicrosoftСообщение Outlook в Microsoft Access 97.

В данной статье предполагается, что вы знакомы с Visual Basic дляПриложения и создания приложений Microsoft Access с помощьюсредства программирования, поставляемые с Microsoft Access. Дополнительные сведенияо Visual Basic для приложений обратитесь к "ПостроениеПриложений с помощью Microsoft Access 97 "вручную.

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

Существуют шесть основных шагов при использовании автоматизации отправить в корпорацию МайкрософтСообщения электронной почты Outlook:

  • Инициализация сеанса Outlook
  • Создать новое сообщение
  • Добавить получателей (в, копия и СК) и разрешения имен
  • Установите правильные свойства, такие как тема, текст и важности
  • Добавить вложения (если есть)
  • Отображение или отправки сообщения
Чтобы отправить сообщение электронной почты Microsoft Outlook программными средствами, выполните следующиедействия:

  1. Создание примера текстового файла с именем Customers.txt в документах C:\My папка.
  2. Запустите Microsoft Access и откройте базу данных Northwind.mdb.
  3. Создайте модуль и введите следующую команду в объявлениях раздел, если он еще не существует:
    Option Explicit
  4. В меню Сервис выберите команду ссылки.
  5. В поле ссылки нажмите кнопку объектной модели Microsoft Outlook 8.0 и нажмите кнопку ОК.

    Примечание: Если Microsoft Outlook 8.0 объекта модели не отображается в Доступные ссылки нажмите Обзор жестком диске для файла Msoutl8.olb. Если не удается найти этот файл, необходимо выполнить Программу установки Microsoft Outlook, чтобы установить перед началом работы в этом примере.
  6. В новом модуле введите следующую процедуру:
          Sub SendMessage(DisplayMsg As Boolean, 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("Michael Suyama")              objOutlookRecip.Type = olCC             ' Add the BCC recipient(s) to the message.              Set objOutlookRecip = .Recipients.Add("Andrew Fuller")              objOutlookRecip.Type = olBCC             ' Set the Subject, Body, and Importance of the message.             .Subject = "This is an Automation test with Microsoft Outlook"             .Body = "This is the body of the message." &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             Next             ' Should we display the message before sending?             If DisplayMsg Then                 .Display             Else                 .Save                 .Send             End If          End With          Set objOutlook = Nothing      End Sub						
  7. Чтобы протестировать эту процедуру, введите следующую строку в окне отладки и нажмите клавишу ВВОД.
    True SendMessage, «C:\My Documents\Customers.txt»
    Обратите внимание, что новое сообщение отображается в Microsoft Outlook с вложение.

    Чтобы отправить сообщение без его отображения в Microsoft Outlook, необходимо вызовите процедуру со значением False для первого аргумента:
    False SendMessage, «C:\My Documents\Customers.txt»
    Чтобы отправить сообщение без указания вложения, опустите второй Аргумент при вызове процедуры.
    SendMessage True
Ссылки
Дополнительные сведения об использовании автоматизации в Microsoft AccessИндекс справки Автоматизации, или попросите Microsoft Access 97 OfficeПомощник.

Дополнительные сведения об использовании автоматизации для управления Microsoft OutlookОбратитесь к следующей статьи базы знаний Майкрософт:
160502ACC: Добавление встречи в корпорацию Майкрософт с помощью автоматизации Outlook

161012VBA: Как создать элемент контакта в Outlook с помощью Автоматизации
OutSol98 OutSol OutSol97

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 161088 — последний просмотр: 12/04/2015 15:55:46 — редакция: 6.0

Microsoft Access 97 Standard Edition

  • kbnosurvey kbarchive kbhowto kbinterop kbmt KB161088 KbMtru
Отзывы и предложения