Cara menggunakan otomatisasi untuk mengirim pesan Microsoft Outlook menggunakan Microsoft Access

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 209948 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menunjukkan kepada Anda bagaimana menggunakan otomatisasi untuk membuat dan mengirim pesan Microsoft Outlook dalam Microsoft Access.

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini termasuk, namun tidak terbatas pada, tersirat jaminan dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrograman yang sedang menunjukkan dan dengan alat-alat yang digunakan untuk membuat dan memperbaiki prosedur. Teknisi Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh tersebut untuk menyediakan ditambahkan fungsi atau membangun prosedur untuk memenuhi kebutuhan spesifik Anda. CATATAN: Kode berikut mungkin tidak bekerja dengan benar jika Anda telah menginstal Pembaruan keamanan email Outlook. Untuk informasi tambahan tentang ini Update, silakan lihat salah satu artikel berikut dalam Pengetahuan Microsoft Base, tergantung pada versi Outlook Anda memiliki:
262631 OL2000: Informasi tentang pembaruan keamanan email Outlook
262617 OL98: Informasi tentang pembaruan keamanan email Outlook
Anda dapat menggunakan SendObject metode untuk mengirim pesan MAPI pemrograman di Microsoft Akses. Namun, SendObject metode tidak memberikan Anda akses untuk menyelesaikan fungsi e-mail, seperti kemampuan untuk melampirkan file eksternal atau menetapkan tingkat kepentingan pesan. The contoh berikut menggunakan otomatisasi untuk membuat dan mengirim mail pesan bahwa Anda dapat digunakan untuk mengambil keuntungan dari banyak fitur pada Microsoft Outlook yang tidak tersedia dengan SendObject metode.

Ada enam langkah utama untuk mengirim Microsoft Outlook pesan dengan menggunakan otomatisasi, sebagai berikut:

  1. Menginisialisasi sesi Outlook.
  2. Membuat pesan baru.
  3. Menambahkan penerima (ke, CC, dan BCC) dan menyelesaikan mereka nama.
  4. Mengatur properti berlaku, seperti subjek, tubuh, dan Pentingnya.
  5. Menambahkan lampiran (jika ada).
  6. Tampilan/mengirim pesan.

Mengirim pesan E-mail Microsoft Outlook pemrograman

  1. Buat sebuah file teks sampel yang bernama Customers.txt di C:\My Map dokumen.
  2. Mulai Microsoft Access, dan membuka database contoh Northwind.mdb.
  3. Buat modul dan ketik baris berikut di Deklarasi bagian jika tidak sudah ada:
    Option Explicit
    					
  4. Pada Alat menu, klik Referensi.
  5. Dalam Referensi kotak, klik untuk memilih Microsoft Outlook x.0 Perpustakaan objek, lalu klik Oke.

    CATATAN: Jika Microsoft Outlook x.0 Perpustakaan objek tidak muncul dalam Referensi yang tersedia kotak, browse perangkat keras untuk berkas, Msoutlx.olb. Jika Anda tidak dapat menemukan file ini, Anda harus menjalankan program penataan Microsoft Outlook untuk menginstal sebelum Anda melanjutkan dengan contoh ini. Sebagai contoh, jika Anda menggunakan Microsoft Outlook 2007 pada komputer Anda, Anda akan memungkinkan perpustakaan objek Microsoft Outlook 12,0.
  6. Jenis prosedur berikut dalam modul baru:
    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. Untuk menguji prosedur ini, ketik baris berikut di Segera jendela, dan kemudian tekan ENTER:
    SendMessage "C:\My Documents\Customers.txt"
    						
    Untuk mengirim pesan tanpa menentukan lampiran, menghilangkan argumen Ketika memanggil prosedur, sebagai berikut:
    SendMessage
    					



REFERENSI

Untuk informasi lebih lanjut tentang menggunakan otomatisasi di Microsoft Akses, di Editor Visual Basic, klik Microsoft Visual Basic membantu Membantu menu, ketik "Otomatisasi" di kantor asisten atau Wisaya jawaban, dan kemudian klik Cari untuk melihat topik.
209963 ACC2000: Bagaimana menggunakan otomatisasi untuk menambahkan janji temu ke Microsoft Outlook
209955 ACC2000: Bagaimana menggunakan otomatisasi untuk membuat Item Kontak baru di Microsoft Outlook










Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 209948 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Access 2000 Standard Edition
  • Microsoft Access 2002 Standard Edition
  • Microsoft Office Access 2003
  • Microsoft Office Access 2007
  • Microsoft Access 2010
Kata kunci: 
kbcode kbautomation kbhowtomaster kbinterop kbprogramming kbmt KB209948 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:209948

Berikan Masukan

 

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