Pomocou automatizácie odoslanie správy program Microsoft Outlook

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
Tento článok bol archivovaný. Je publikovaný v aktuálnej podobe a už nebude aktualizovaný.
Rozšírené: Vyžaduje expertné kódovanie, interoperability a viacerými používateľmi zručnosti.

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

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

Ďalšie informácie o používaní automatizácie poslať Microsoft Exchangesprá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átenainštalovaný program Outlook E-mail Security Update.Ďalšie informácie o tejto aktualizácii, prečítajte sijeden z nasledujúcich článkov Microsoft KnowledgeZá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 MAPIpomocou programovania v programe Microsoft Access. SendObject metóda všaknie 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ý sledujepouží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íciiSendObject metóda.

Existuje šesť hlavných krokov, keď použijete automatizácie poslať MicrosoftProgram 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ýchtokroky:

  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ávanieRegister Pomocníka pre Automatizácia, alebo požiadať Microsoft Access 97 OfficeAsistent.

Ď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
OutSol OutSol97 OutSol98

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 161088 – Posledná kontrola: 12/04/2015 15:55:46 – Revízia: 1.0

Microsoft Access 97 Standard Edition

  • kbnosurvey kbarchive kbhowto kbinterop kbmt KB161088 KbMtsk
Pripomienky