Как да използвате автоматизация да изпратите съобщение, Microsoft Outlook като използвате Access 2000

За Microsoft Access 97 версия на тази статия вижте
161088.

Разширено: Изисква експерт кодиране, съвместимост и умения за много потребители.

Тази статия се отнася за база данни на Microsoft Access (.mdb) и проект на Microsoft Access (.adp).

В ТАЗИ ЗАДАЧА

Резюме

Тази статия ви показва как да използвате автоматизация, за да създадете и изпратите съобщение на Microsoft Outlook в Microsoft Access 2000.


Microsoft предоставя примери само за илюстративни цели без гаранция за определени цели. Това включва, но не е ограничено до, подразбиращи се гаранции за продаваемост или годност за определена цел. Тази статия се предполага, че сте запознати с демонстрирания език за програмиране и инструментите, които се използват за създаване и процедури за отстраняване на грешки. Инженерите на поддръжката на Microsoft могат да помогнат с обяснение на функциите на конкретна процедура, но няма да могат да модифицират тези примери с цел осигуряване на допълнителна функционалност или създаване на процедури за удовлетворение на конкретните ви изисквания.
Забележка: Следният код може да не работи правилно, ако сте инсталирали Outlook имейл актуализация на защитата. За допълнителна информация относно тази актуализация вижте една от следните статии в базата знания на Microsoft, в зависимост от версията на Outlook имате:

262631 OL2000: информация за актуализация на защитата на Outlook E-mail

262617 OL98: информация за актуализация на защитата на Outlook E-mail
Можете да използвате метода за действие SendObject да изпратите имейл съобщение на MAPI програмно в Microsoft Access. Въпреки това действие SendObject метод не ви дава достъп до пълната поща функционалност, например да прикачите външен файл или задайте значение съобщение. Следва пример използва автоматизация да създадете и изпратите съобщение, което можете да се възползвате от предимствата на много функции в Microsoft Outlook, които не са налични с метода на действие SendObject .

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

  1. Инициализиране на сесията на Outlook.

  2. Създаване на ново съобщение.

  3. Добавяне на получатели (за и СК) и разрешаване на техните имена.

  4. Задайте валидна свойства, като тема, тяло и значение.

  5. Добавяне на прикачени файлове (ако има такива).

  6. Показване/изпрати съобщение.

Изпращане на съобщение на Microsoft Outlook поща програмно

  1. Създайте примерен текстов файл с име Customers.txt в папката C:\My документи.

  2. Стартирайте Microsoft Access и отворете базата данни на примерни Northwind.mdb.

  3. Създаване на модул и въведете следния ред в раздела за декларации, ако вече не е там:

    Option Explicit
  4. В менюто инструменти щракнете върху препратки.

  5. В полето препратки изберете 9.0 обектната библиотека на Microsoft Outlookи след това щракнете върху 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 приобщени

Беше ли полезна тази информация?

Благодарим ви за обратната връзка!

Благодарим ви за вашата обратна връзка. Изглежда, че ще бъде полезно да ви свържем с един от нашите агенти по поддръжката на Office.

×