Zprávy aplikace Microsoft Outlook pomocí automatizace

Překlady článku Překlady článku
ID článku: 161088 - Produkty, které se vztahují k tomuto článku.
Upřesnit: Vyžaduje odborné kódování interoperability a víceuživatelské dovedností.

Rozbalit všechny záložky | Minimalizovat všechny záložky

Souhrn

Tento článek popisuje, jak vytvořit a odeslat společnosti Microsoft pomocí automatizace Zpráva aplikace Outlook v aplikaci Microsoft Access 97.

Tento článek předpokládá, že jste obeznámeni s jazykem Visual Basic pro Aplikace a s aplikací Microsoft Access pomocí vytvoření programovací nástroje, které jsou součástí aplikace Microsoft Access. Další informace o aplikaci Visual Basic for Applications budova"najdete Aplikace Microsoft Access 97 "příručky.

Další informace o použití automatizace odeslat serveru Microsoft Exchange zpráva, naleznete v následujícím článku znalostní báze Microsoft Knowledge Base:
153311Zprávy serveru Microsoft Exchange pomocí automatizace

Další informace

POZNÁMKA: Následující kód nemusí fungovat správně v případě, že máte Po instalaci aktualizace zabezpečení e-mailu aplikace Outlook. Další informace o této aktualizaci naleznete v tématu jeden z následujících článků ve znalostní společnosti Microsoft Base, v závislosti na verzi aplikace Outlook, kterou používáte:
262631 OL2000: Informace O aktualizaci zabezpečení e-mailu aplikace Outlook
262617 OL98: Informace O aktualizaci zabezpečení e-mailu aplikace Outlook
Metody SendObject umožňuje odeslat e-mailové zprávy MAPI programově v aplikaci Microsoft Access. Však nemá metodu OdeslatObjekt není poskytují přístup k dokončení funkce pošty, jako je například možnost Připojte externí soubor nebo nastavit důležitost zprávy. Následující příklad vytvořit a odeslat zprávu elektronické pošty, můžete provést pomocí automatizace využívat mnoho funkcí v aplikaci Microsoft Outlook, které nejsou k dispozici Metoda OdeslatObjekt.

Existuje šest hlavních kroků při použití automatizace odeslat společnosti Microsoft E-mail aplikace Outlook:

  • Inicializace relace aplikace Outlook
  • Vytvoření nové zprávy
  • Přidat příjemce (, kopie a SKRYTÁ) a jejich jmen
  • Nastavit platné vlastnosti, jako je například předmět, text a význam
  • Přidat přílohy (pokud existuje)
  • Zobrazení nebo odeslání zprávy
Chcete-li programově odesílat e-mailové zprávy aplikace Microsoft Outlook, postupujte kroky:

  1. Vytvořit vzorek textový soubor s názvem Customers.txt v c:\Pracovní dokumenty složka.
  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 prohlášeních oddíl, pokud ještě není:
    Možnost explicitní
  4. V nabídce Nástroje klepněte na příkaz odkazy.
  5. V seznamu Odkazy klepněte na Model objektu aplikace Microsoft Outlook 8.0 a potom klepněte na tlačítko OK.

    Poznámka: Je-li objekt aplikace Microsoft Outlook 8.0 modelu nezobrazí v K dispozici odkazy na pole, vyhledejte na pevném disku pro soubor Msoutl8.olb. Pokud nemůžete najít tento soubor, je nutné spustit Microsoft Outlook instalační program před pokračováním ji nainstalovat s tímto příkladem.
  6. V novém modulu zadejte následující postup:
          Sub SendMessage(DisplayMsg As Boolean, 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("Michael Suyama")
                  objOutlookRecip.Type = olCC
    
                 ' Add the BCC recipient(s) to the message.
                  Set objOutlookRecip = .Recipients.Add("Andrew Fuller")
                  objOutlookRecip.Type = olBCC
    
                 ' Set the Subject, Body, and Importance of the message.
                 .Subject = "This is an Automation test with Microsoft Outlook"
                 .Body = "This is the body of the message." &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
                 Next
    
                 ' Should we display the message before sending?
                 If DisplayMsg Then
                     .Display
                 Else
                     .Save
                     .Send
                 End If
              End With
              Set objOutlook = Nothing
          End Sub
    						
  7. Chcete-li si vyzkoušet tento postup, zadejte následující řádek v okně programu Debug a potom stiskněte klávesu ENTER.
    SendMessage PRAVDA, "C:\My Documents\Customers.txt"
    Poznámka: nové zprávy je zobrazena v aplikaci Microsoft Outlook s Příloha.

    Chcete-li zprávu odeslat bez zobrazení v aplikaci Microsoft Outlook, volání postup s hodnotu False pro první argument:
    SendMessage False "C:\My Documents\Customers.txt"
    Chcete-li zprávu odeslat bez zadání přílohu, vynecháte druhý argument při volání postup.
    SendMessage PRAVDA

Odkazy

Další informace o použití automatizace aplikace Microsoft Access Index nápovědy Automatizace, nebo požádejte Microsoft Access 97 Office Pomocník.

Další informace o použití automatizace ovládacího prvku aplikace Microsoft Outlook Další informace naleznete v následujících článcích znalostní báze Microsoft Knowledge Base:
160502ACC: Přidání události společnosti Microsoft pomocí automatizace Aplikace Outlook

161012VBA: Jak vytvořit novou položku kontaktu aplikace Outlook s Automatizace

Vlastnosti

ID článku: 161088 - Poslední aktualizace: 23. dubna 2011 - Revize: 5.0
Informace v tomto článku jsou určeny pro produkt:
  • Microsoft Access 97 Standard Edition
Klíčová slova: 
kbhowto kbinterop kbmt KB161088 KbMtcs
Strojově přeložený článek
Důležité: Tento článek byl přeložen pomocí software společnosti Microsoft na strojový překlad, ne profesionálním překladatelem. Společnost Microsoft nabízí jak články přeložené překladatelem, tak články přeložené pomocí software na strojový překlad, takže všechny články ve Znalostní databázi (Knowledge Base) jsou dostupné v češtině. Překlad pomocí software na strojový překlad ale není bohužel vždy dokonalý. Obsahuje chyby ve skloňování slov, skladbě vět, nebo gramatice, podobně jako když cizinci dělají chyby při mluvení v češtině. Společnost Microsoft není právně zodpovědná za nepřesnosti, chyby nebo škody vzniklé chybami v překladu, nebo při použití nepřesně přeložených instrukcí v článku zákazníkem. Společnost Microsoft aktualizuje software na strojový překlad, aby byl počet chyb omezen na minimum.
Projděte si také anglickou verzi článku:161088
Právní omezení pro obsah znalostní báze týkající se produktů, jejichž podpora byla ukončena
Tento článek byl napsán o produktech, pro které společnost Microsoft již neposkytuje nadále podporu. Článek je tedy nabízen v takovém stavu, v jakém je, a nebude již nadále aktualizován.

Dejte nám zpětnou vazbu

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com