Použití automatizace odeslat zprávu aplikace Microsoft Outlook pomocí aplikace Access 2000


Aplikace Microsoft Access 97 verzi tohoto článku naleznete v tématu
161088 .
Upřesnit: Vyžaduje odborných kódování interoperability a víceuživatelské dovedností.

Tento článek platí pro databáze aplikace Microsoft Access (.mdb) a projektu Microsoft Access (ADP).

V TOMTO ÚKOLU

Souhrn


Tento článek ukazuje, jak použít automatizaci k vytvoření a odeslání zprávy 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é. To zahrnuje, ale není omezen pouze na předpokládané záruky obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předmětem ukázky a s nástroji, které slouží k vytvoření a ladění skriptu. Pracovníci podpory společnosti Microsoft mohou pomoci vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo vytvářet postupy podle vašich konkrétních požadavků.
Poznámka: Následující kód nemusí pracovat správně po instalaci aktualizace zabezpečení e-mailu aplikace Outlook. Další informace o této aktualizaci naleznete v jednom z následujících článků znalostní báze Microsoft Knowledge Base, v závislosti na verzi Outlook máte:
262631 OL2000: informace o aktualizaci zabezpečení e-mailu aplikace Outlook
262617 OL98: informace o aktualizaci zabezpečení e-mailu aplikace Outlook
Chcete-li programově odesílat e-mailové zprávy MAPI v aplikaci Microsoft Access můžete použít metodu OdeslatObjekt . Nicméně metoda OdeslatObjekt nedává přístup k dokončení funkce pošty, jako je možnost připojit externí soubor nebo nastavit důležitost zprávy. Následující příklad využívá automatizaci k vytvoření a odeslání poštovní zprávy, můžete využívat mnoho funkcí v aplikaci Microsoft Outlook, které nejsou dostupné metody OdeslatObjekt .

Existuje šest hlavních kroků k odesílání e-mailové zprávy aplikace Microsoft Outlook pomocí automatizace:

  1. Inicializace relace aplikace Outlook.
  2. Vytvoření nové zprávy.
  3. Přidat příjemce (, kopie a SKRYTÁ) a jejich jmen.
  4. Nastavit platné vlastnosti, například předmět, text a význam.
  5. Přidání přílohy (pokud existuje).
  6. Zobrazení nebo odeslání zprávy.

Programově odesílat e-mailové zprávy aplikace Microsoft Outlook

  1. Vytvořte ukázkový textový soubor s názvem Customers.txt ve složce C:\My dokumenty.
  2. Spusťte aplikaci Microsoft Access a otevřete ukázkovou databázi Northwind.mdb.
  3. Vytvořte modul a zadejte následující řádek v sekci deklarací, pokud již není:
    Option Explicit
  4. V nabídce Nástroje klepněte na odkazy.
  5. V poli odkazy klepnutím vyberte Microsoft Outlook 9.0 Object Librarya klepněte na tlačítko OK.

    Poznámka: Pokud v poli Dostupné odkazy nezobrazí Microsoft Outlook 9.0 Object Library, procházet souboru Msoutl9.olb na pevném disku. Pokud nemůžete najít tento soubor, je nutné spustit Microsoft Outlook instalační program nainstalovat dříve, než budete pokračovat v tomto příkladu.
  6. V novém modulu zadejte následující proceduru:
    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 vyzkoušet tento postup, zadejte následující řádek v okně Immediate a stiskněte klávesu ENTER:
    SendMessage "C:\My Documents\Customers.txt"
    Chcete-li zprávu odeslat bez zadání přílohu, vynecháte argument při volání procedury, takto:
    SendMessage



Odkazy


Další informace o použití automatizace v aplikaci Microsoft Access, v editoru jazyka Visual Basic v nabídce Nápověda klepněte na příkaz Nápověda pro Microsoft Visual Basic v Pomocníkovi Office nebo v Průvodci odpověďmi zadejte "Automatizace" a klepněte na tlačítko Hledat zobrazíte příslušné téma.
209963 ACC2000: jak používat automatizace přidání události do aplikace Microsoft Outlook
209955 ACC2000: jak používat automatizace vytvoření nové položky kontaktu v aplikaci Microsoft Outlook