Pomocou automatizácie odoslanie správy program Microsoft Outlook

Preklady článku Preklady článku
ID článku: 161088 - Zobraziť produkty, ktorých sa tento článok týka.
Rozšírené: Vyžaduje expertné kódovanie, interoperability a viacerými používateľmi zručnosti.

Rozbaliť všetko | Zbaliť všetko

SUHRN

Tento článok vám ukáže, ako použiť automatizáciu aplikácie a vytvárať a posielať Microsoft Program Outlook správu v programe Microsoft Access 97.

Tento článok predpokladá, že ste oboznámení s programom Visual Basic pre Aplikácie a s vytváraním aplikácie Microsoft Access pomocou programovacie nástroje s Microsoft Access. Ďalšie informácie o Visual Basic for Applications, pozrite si "Building Aplikácie Microsoft Access 97 "príručky.

Ďalšie informácie o používaní automatizácie poslať Microsoft Exchange správy, prečítajte si nasledujúci článok v databáze Microsoft Knowledge Base:
153311Pomocou automatizácie odoslanie správy program Microsoft Exchange

DALSIE INFORMACIE

POZNÁMKA: Nasledujúci kód nemusí pracovať správne ak máte nainštalovaný program Outlook E-mail Security Update. Ďalšie informácie o tejto aktualizácii, prečítajte si jeden z nasledujúcich článkov Microsoft Knowledge Základ, podľa toho, ktorú verziu programu Outlook máte:
262631 OL2000: Informácie O aktualizácii zabezpečenia e-mailu programu Outlook
262617 OL98: Informácie O aktualizácii zabezpečenia e-mailu programu Outlook
SendObject metóda poskytuje spôsob, ako poslať správu elektronickej pošty MAPI pomocou programovania v programe Microsoft Access. SendObject metóda však nie dať máte prístup na dokončenie hromadnej funkcie, ako napríklad schopnosť pripojiť externý súbor alebo nastaviť dôležitosť správy. Príklad, ktorý sleduje používa automatizácie vytvoriť a odoslať správu elektronickej pošty, ktoré môžete použiť prijať výhody mnohých funkcií v programe Microsoft Outlook, ktoré nie sú k dispozícii SendObject metóda.

Existuje šesť hlavných krokov, keď použijete automatizácie poslať Microsoft Program Outlook poštová správa:

  • Inicializácia relácie programu Outlook
  • Vytvorte novú správu
  • Pridať príjemcov (, Kópia a SKRYTÁ) a vyriešiť ich mená
  • Nastaviť platné vlastnosti, ako napríklad predmet, telo a význam
  • Pridať prílohy (ak existuje)
  • Zobrazenie/odoslať správu
Ak chcete odoslať správu elektronickej pošty programu Microsoft Outlook pomocou programovania, postupujte podľa týchto kroky:

  1. Vytvorte vzorku textový súbor s názvom Customers.txt v c:\Moje dokumenty priečinok.
  2. Spustite program Microsoft Access a otvorte ukážkovú databázu Northwind.mdb.
  3. Vytvoriť modul a zadajte nasledujúci riadok v deklaráciách sekcia Ak už nie je:
    Možnosť explicitné
  4. V ponuke Nástroje kliknite na položku odkazy.
  5. V poli Odkazy kliknite na objektový Model programu Microsoft Outlook 8.0 a potom kliknite na tlačidlo OK.

    Poznámka: Ak objekt programu Microsoft Outlook 8.0 Model nie je zobrazený v Available References položku Prehľadávať pevný disk pre súbor Msoutl8.olb. Ak nemôžete nájsť tento súbor, musíte spustiť Microsoft Outlook inštalačný program a nainštalujte ho pred pokračovaním pomocou tohto príkladu.
  6. Do nového modulu zadajte nasledujúci 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. Na testovanie tohto postupu, zadajte nasledujúci riadok v okne Debug a potom stlačte kláves ENTER.
    SendMessage pravda, "C:\Moje Documents\Customers.txt"
    Všimnite si, že nová správa sa zobrazí v programe Microsoft Outlook s prílohu.

    Ak chcete odoslať správu bez zobrazenia v programe Microsoft Outlook, zavolať postup s hodnotou False pre prvý argument:
    SendMessage False, "C:\Moje Documents\Customers.txt"
    Chcete odoslať správu bez špecifikovania prílohu, vynechajte druhý argument pri telefonovaní postupom.
    SendMessage pravda

ODKAZY

Ďalšie informácie o používaní automatizácie v programe Microsoft Access, vyhľadávanie Register Pomocníka pre Automatizácia, alebo požiadať Microsoft Access 97 Office Asistent.

Ďalšie informácie o používaní automatizácie ovládací program Microsoft Outlook, Prečítajte si nasledujúce články v databáze Microsoft Knowledge Base:
160502ACC: Pomocou automatizácie pridať plánované činnosti spoločnosti Microsoft Outlook

161012VBA: Ako vytvoriť novú položku kontakt v programe Outlook s Automatizácia

Vlastnosti

ID článku: 161088 - Posledná kontrola: 17. októbra 2011 - Revízia: 1.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Access 97 Standard Edition
Kľúčové slová: 
kbhowto kbinterop kbmt KB161088 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:161088
Upozornenie na neaktuálny obsah článku databázy KB
Tento článok obsahuje informácie o produktoch, pre ktoré spoločnosť Microsoft už neposkytuje technickú podporu. Z tohto dôvodu je tento článok publikovaný ako nezmenený a už nebude aktualizovaný.

Odošlite odozvu

 

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