Microsoft Access 97 версію цієї статті див.
161088.

Додаткові: Вимагає експерт кодування, функціональна сумісність і навички в кількох користувачів.

У цій статті, застосовується до бази даних Microsoft Access (. mdb) а також проект Microsoft Access (. adp).

У ЦЬОМУ ЗАВДАННІ

Загальні відомості

У цій статті описано використання автоматизації надсилати повідомлення в Microsoft Outlook, Microsoft Access 2000.


Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури, але вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів.
Примітка: Наведений нижче код може не працювати належним чином, якщо ви інсталювали оновлення безпеки електронної пошти Outlook. Щоб отримати додаткові відомості про це оновлення див. одна з таких статей в Microsoft Knowledge Base, залежно від того, яку версію 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 і відкрийте навчальну базу даних Northwind.mdb.

  3. Створіть модуль та введіть у розділі оголошень наступний рядок, якщо його там ще немає:

    Option Explicit
  4. У меню " Сервіс " натисніть кнопку " посилання".

  5. У вікні " посилання " виберіть Формат бібліотека об'єктів Microsoft Outlook 9.0і натисніть кнопку OK.

    Зверніть увагу: Бібліотека об'єктів 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. Щоб перевірити цю процедуру, введіть наступний рядок в області перевірки і натисніть клавішу ENTER:

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

    Надсилати повідомлення, не містить вкладення, можна пропустити аргумент під час виклику процедури, наступним чином:

    SendMessage




Посилання

Щоб отримати додаткові відомості про використання автоматизації у програмі Microsoft Access, у редакторі Visual Basic натисніть Довідка Microsoft Visual Basic, Довідка, введіть "Автоматизація" у помічнику Office або в майстрі відповідей та натисніть кнопку пошуку, щоб розгорнути розділ.

209963 ACC2000: те, як додати зустрічі в Microsoft Outlook за допомогою автоматизації

209955 ACC2000: те, як створити новий елемент контактів у програмі Microsoft Outlook за допомогою автоматизації










Потрібна додаткова довідка?

Отримуйте нові функції раніше за інших
Приєднатися до Microsoft оцінювачів

Чи були ці відомості корисні?

Наскільки ви задоволені якістю перекладу?
Що вплинуло на ваші враження?

Дякуємо за ваш відгук!

×