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

Переводы статьи Переводы статьи
Код статьи: 161088 - Vizualiza?i produsele pentru care se aplic? acest articol.
Дополнительно: Требуется изложенный, взаимодействия и многопользовательской навыков.

Развернуть все | Свернуть все

Аннотация

В данной статье описаны способы использования автоматизации для создания и отправки 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 с помощью Автоматизации

Свойства

Код статьи: 161088 - Последний отзыв: 23 декабря 2012 г. - Revision: 6.0
Информация в данной статье относится к следующим продуктам.
  • Microsoft Access 97 Standard Edition
Ключевые слова: 
kbhowto kbinterop kbmt KB161088 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке: 161088
Заявление об отказе относительно содержимого статьи о продуктах, поддержка которых прекращена
Эта статья содержит сведения о продуктах, поддержка которых корпорацией Майкрософт прекращена. Поэтому она предлагается как есть и обновляться не будет.

Отправить отзыв

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com