如何使用自動化來傳送使用 Access 2000 的 Microsoft Outlook 訊息

這份文件的 Microsoft Access 97 版本,請參閱
161088

進階使用者: 須具備專家編碼、 互操作性與多重使用者技巧。

本文適用於 Microsoft Access 資料庫 (.mdb) 與 Microsoft Access 專案 (.adp)。

在這項工作中

摘要

本文將告訴您,如何使用自動化來建立並傳送在 Microsoft Access 2000 的 Microsoft Outlook 訊息。


Microsoft 會提供程式設計範例僅供說明,而不做任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已相當熟悉使用的我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序中,功能,但它們不會修改這些範例以提供附加功能或建構程序來滿足您特定需求。
附註:如果您已經安裝 Outlook 電子郵件安全性更新,下列程式碼可能無法正常運作。如需有關此更新的詳細資訊,請參閱下列文件 Microsoft 知識庫 」 中,您的 Outlook 版本而定有其中一項:

262631 OL2000: 有關 Outlook 電子郵件安全性更新的資訊

262617 OL98: Outlook 電子郵件安全性更新的相關資訊
您可以使用SendObject方法,在 Access 中,以程式設計的方式傳送 MAPI 郵件訊息。不過, SendObject方法並不授予您存取完成郵件 」 功能,例如: 能夠附加外部檔案,或設定訊息的重要性。以下範例會使用自動化來建立並傳送郵件,您可以用來利用在 Microsoft Outlook 中使用SendObject方法所沒有的許多功能。

有六個主要的步驟,如下所示使用自動化,傳送 Microsoft Outlook 郵件訊息:

  1. 初始化 Outlook 工作階段。

  2. 建立新的郵件。

  3. 加入收件者 ([副本] 和 [密件副本]) 並解決它們的名稱。

  4. 設定有效的屬性,例如主旨、 本文和重要性。

  5. 將附件新增 (如果有的話)。

  6. 顯示/傳送訊息。

以程式設計的方式傳送 Microsoft Outlook 郵件訊息

  1. 建立名為 Customers.txt,C:\My 文件] 資料夾中的範例文字檔案。

  2. 啟動 Microsoft Access 然後開啟範例資料庫 Northwind.mdb。

  3. 建立模組,並輸入下列命令的宣告區段中,如果它已經不存在:

    Option Explicit
  4. 按一下 [工具] 功能表的 [參考]。

  5. 在 [參照] 方塊中,按一下以選取 [ Microsoft Outlook 9.0 物件程式庫,然後按一下[確定]。

    附註: 如果 Microsoft Outlook 9.0 物件程式庫不會出現在 [可用的參考] 方塊中,瀏覽您的硬碟檔案,也就是 Msoutl9.olb。如果找不到這個檔案,您必須執行 Microsoft Outlook 安裝程式才能繼續進行本範例,請安裝它。

  6. 在新的模組中輸入下列的程序:

    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. 若要測試此程序,請在即時運算視窗中,輸入下列命令,然後按 ENTER 鍵:

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

    若要傳送訊息,而不需要指定附件,請省略引數,當呼叫的程序,如下所示:

    SendMessage




參考

如需有關使用自動化,在 Microsoft Access 中,在 Visual Basic 編輯器] 中,按一下 [說明] 功能表中的 [Microsoft Visual Basic 的說明,在 Office 小幫手 」 或 「 解答精靈中,輸入 「 自動化 」,然後按一下以檢視主題的搜尋。

209963 ACC2000: 如何使用自動化來新增到 Microsoft Outlook 的約會

209955 ACC2000: 如何使用自動化來在 Microsoft Outlook 中建立新的連絡人項目










Need more help?

Expand your skills
Explore Training
Get new features first
Join Microsoft Insiders

Was this information helpful?

Thank you for your feedback!

Thank you for your feedback! It sounds like it might be helpful to connect you to one of our Office support agents.

×