Sdílet prostřednictvím


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.

Poznámka

Následující kód nemusí správně fungovat, pokud jste nainstalovali aktualizaci zabezpečení e-mailu aplikace Outlook.

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