• Articles
• admin

shrnutí

tento článek ukazuje, jak používat automatizaci k vytvoření a odeslání zprávy aplikace Microsoft Outlook v aplikaci Microsoft Access 2000.
společnost Microsoft poskytuje příklady programování pouze pro ilustraci, bez záruky vyjádřené nebo předpokládané. To zahrnuje, ale není omezeno na, předpokládané záruky prodejnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je demonstrován, as nástroji, které se používají k vytváření a ladění postupů. Inženýři podpory společnosti Microsoft mohou pomoci vysvětlit funkčnost konkrétního postupu, ale nebudou tyto příklady upravovat tak, aby poskytovaly další funkce nebo konstruovaly postupy, které splňují vaše specifické požadavky.
POZNÁMKA: Následující kód nemusí fungovat správně, pokud jste nainstalovali aktualizaci zabezpečení e-mailu Aplikace Outlook. Další informace o této aktualizaci naleznete v jednom z následujících článků ve znalostní bázi společnosti Microsoft, v závislosti na verzi aplikace Outlook, kterou máte:

262631 OL2000: informace o aktualizaci zabezpečení e-mailu Aplikace Outlook

262617 OL98: informace o aktualizaci zabezpečení e-mailu Aplikace Outlook
metodu SendObject můžete použít k programovému odeslání poštovní zprávy MAPI v aplikaci Microsoft Access. Metoda SendObject vám však neumožňuje přístup k úplným funkcím pošty,jako je například možnost připojit externí soubor nebo nastavit význam zprávy. Následující příklad používá automatizaci k vytvoření a odeslání e-mailové zprávy, kterou můžete použít k využití mnoha funkcí v aplikaci Microsoft Outlook, které nejsou k dispozici metodou SendObject.
existuje šest hlavních kroků k odeslání poštovní zprávy aplikace Microsoft Outlook pomocí automatizace, a to následovně:

1. inicializujte relaci aplikace Outlook.

2. vytvořte novou zprávu.

3. přidejte příjemce (do, CC a BCC) a vyřešte jejich jména.

4. nastavte platné vlastnosti, jako je předmět, tělo a důležitost.

5. přidejte přílohy (pokud existují).

6. Zobrazit / odeslat zprávu.

odeslání poštovní zprávy Microsoft Outlook programově

1. Vytvořte ukázkový textový soubor s názvem zákazníci.txt v C:\My složka 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 do sekce prohlášení, pokud tam ještě není:

   Option Explicit
   

4. v nabídce Nástroje klikněte na odkazy.

5. v odkazech klepněte na položku Knihovna objektů Microsoft Outlook 9.0 a potom klepněte na tlačítko OK.
   Poznámka: Pokud se Knihovna objektů Microsoft Outlook 9.0 neobjeví v poli Dostupné odkazy, vyhledejte na pevném disku soubor Msoutl9.olb. Pokud tento soubor nemůžete najít, musíte spustit instalační program aplikace Microsoft Outlook a nainstalovat jej dříve, než budete pokračovat v tomto příkladu.

6. do nového modulu zadejte následující 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. Chcete-li tento postup otestovat, zadejte do bezprostředního okna následující řádek a stiskněte klávesu ENTER:

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

   Chcete-li odeslat zprávu bez zadání přílohy, vynechejte argument při volání procedury následovně:

   SendMessage