Jak pomocí služby Automation odeslat zprávu aplikace Microsoft Outlook pomocí aplikace Access 2000

Tento článek se týká databáze aplikace Microsoft Access (.mdb) a projektu aplikace Microsoft Access (.adp).

Souhrn

Tento článek popisuje, jak pomocí automatizace vytvořit a odeslat zprávu aplikace Microsoft Outlook v aplikaci Microsoft Access 2000.

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele.

Pomocí metody můžete SendObject odeslat e-mailovou zprávu MAPI programově v aplikaci Microsoft Access. SendObject Metoda však neposkytuje přístup k úplným funkcím pošty, jako je možnost připojit externí soubor nebo nastavit důležitost zprávy. Následující příklad používá automatizaci k vytvoření a odeslání e-mailové zprávy, kterou můžete použít k využití mnoha funkcí aplikace Microsoft Outlook, které nejsou s metodou SendObject dostupné.

Odeslání e-mailové zprávy aplikace Microsoft Outlook pomocí služby Automation je v šesti hlavních krocích:

1. Inicializace relace aplikace Outlook.
2. Vytvořte novou zprávu.
3. Přidejte příjemce (Komu, Kopie a Skrytá kopie) a přeložte jejich jména.
4. Nastavte platné vlastnosti, například Předmět, Text a Důležitost.
5. Přidejte přílohy (pokud nějaké jsou).
6. Zobrazte nebo odešlete zprávu.

Programové odesílání e-mailové zprávy aplikace Microsoft Outlook

1. Ve složce C:\Dokumenty vytvořte ukázkový textový soubor s názvem Customers.txt.

2. Spusťte Microsoft Access a otevřete ukázkovou databázi Northwind.mdb.

3. Vytvořte modul a zadejte následující řádek do oddílu Deklarace, pokud tam ještě není:

   Option Explicit

4. V nabídce Nástroje vyberte Reference.

5. V poli Odkazy vyberte Knihovnu objektů aplikace Microsoft Outlook 9.0 a pak vyberte OK.

   Poznámka

   Pokud se knihovna objektů aplikace Microsoft Outlook 9.0 nezobrazí v poli Dostupné odkazy , vyhledejte na pevném disku soubor Msoutl9.olb. Pokud tento soubor nemůžete najít, musíte před pokračováním v tomto příkladu spustit instalační program aplikace Microsoft Outlook a nainstalovat ho.

6. V novém modulu zadejte následující postup:

   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. Chcete-li tento postup otestovat, zadejte následující řádek v okně Immediate a stiskněte klávesu ENTER:

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

   Chcete-li odeslat zprávu bez zadání přílohy, vyněžte argument při volání procedury následujícím způsobem:

   SendMessage