Microsoft Access 97 verziu tohto článku, pozrite si
161088.

Rozšírené: Vyžaduje odborníka kódovanie, interoperabilita a viacerými používateľmi zručností.

Tento článok sa vzťahuje na databázu programu Microsoft Access (.mdb) a na projekt programu Microsoft Access (.adp).

V TEJTO ÚLOHE

Súhrn

V tomto článku sa dozviete, ako použiť automatizáciu na vytvorenie a odoslanie správy program Microsoft Outlook, Microsoft Access 2000.


Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez vyjadrených či predpokladaných záruk. Tie okrem iného zahŕňajú predpokladané záruky obchodovateľnosti alebo vhodnosti na konkrétny účel. Tento článok predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft vám môžu vysvetliť fungovanie konkrétneho postupu, ale neupravia tieto príklady s cieľom poskytnutia pridanej funkčnosti ani nevytvoria procedúry zohľadňujúce vaše konkrétne požiadavky.
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 nájdete jeden z nasledujúcich článkov databázy Microsoft Knowledge Base, 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
Môžete použiť SendObject metóda Odoslať MAPI e-mailovej správy pomocou programu Microsoft Access. Avšak, SendObject metóda vám 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 odosielať správy, ktoré môžete využiť mnohé funkcie v programe Microsoft Outlook, ktoré nie sú k dispozícii SendObject metóda.

Existuje šesť hlavných krokov na odosielanie e-mailovej správy programu Microsoft Outlook pomocou automatizácie, takto:

  1. Inicializovať relácia programu Outlook.

  2. Vytvorte novú správu.

  3. Pridať príjemcov (, Kópia a Skrytá) a vyriešiť ich názvy.

  4. Nastaviť platné vlastnosti, ako napríklad predmet, telo a význam.

  5. Pridať prílohy (ak existuje).

  6. Zobrazenie/odoslať správu.

Odoslanie správy program Microsoft Outlook pomocou programu

  1. Vytvorte vzorku textový súbor s názvom Customers.txt v C:\My dokumenty.

  2. Spustite program Microsoft Access a otvorte ukážkovú databázu Northwind.mdb.

  3. Vytvoriť modul a zadajte nasledujúci riadok v sekcii vyhlásenia, ak už nie je:

    Option Explicit
  4. V ponuke Nástroje kliknite na položku Odkazy.

  5. V dialógovom okne Odkazy kliknutím vyberte Objektová knižnica programu Microsoft Outlook 9.0a kliknite na tlačidlo OK.

    Poznámka: Ak Microsoft Outlook 9.0 Objektová knižnica nezobrazuje v zozname Dostupné odkazy , vyhľadajte súbor Msoutl9.olb na pevnom disku. Ak nemôžete nájsť súbor, musíte spustiť Microsoft Outlook inštalačný program a nainštalujte ho pred pokračovaním v tomto príklade.

  6. Do nového modulu zadajte nasledujúci 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. Ak chcete vyskúšať tento postup, zadajte nasledujúci riadok v okamžitom okne a potom stlačte kláves ENTER:

    SendMessage "C:\My Documents\Customers.txt"

    Odoslať správu bez zadania prílohu, argument vynechať pri volaní procedúry nasledovne:

    SendMessage




Odkazy

Ďalšie informácie o používaní automatizácie v programe Microsoft Access, v editore jazyka Visual Basic kliknite Pomocník programu Microsoft Visual Basic na pomoc ponuka, typu "Automatizácia" v Asistentovi balíka Office alebo Sprievodcovi odpoveďami a kliknite na tlačidlo Hľadať zobrazte príslušnú tému.

209963 ACC2000: pomocou automatizácie pridať plánované činnosti programu Microsoft Outlook

209955 ACC2000: ako použiť automatizáciu aplikácie vytvoriť novú položku kontakt v programe Microsoft Outlook










Potrebujete ďalšiu pomoc?

Rozšírte svoje zručnosti
Preskúmať školenie
Buďte medzi prvými, ktorí získajú nové funkcie
Pripojiť k Microsoft insiderov chcú

Považujete poskytnuté informácie za užitočné?

Aká je podľa vás kvalita prekladu?
Čo sa vám páčilo a čo nie?

Ďakujem za vaše pripomienky!

×