Menggunakan otomatisasi mengirim pesan Microsoft Outlook

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 161088 - Melihat produk di mana artikel ini berlaku.
Lanjutan: Memerlukan ahli coding, interoperabilitas, dan keterampilan multiuser.

Perbesar semua | Perkecil semua

RINGKASAN

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

Artikel ini mengasumsikan bahwa Anda sudah familiar dengan Visual Basic untuk Aplikasi dan membuat aplikasi Microsoft Access menggunakan pemrograman alat-alat yang disediakan dengan Microsoft Access. Untuk informasi lebih lanjut tentang Visual Basic for Applications, silakan merujuk ke gedung" Aplikasi dengan Microsoft Access 97 "manual.

Untuk informasi lebih lanjut tentang menggunakan otomatisasi untuk mengirim Microsoft Exchange pesan, silakan lihat artikel berikut pada Basis Pengetahuan Microsoft:
153311Menggunakan otomatisasi mengirim pesan Microsoft Exchange

INFORMASI LEBIH LANJUT

CATATAN: Kode berikut mungkin tidak bekerja dengan baik jika Anda memiliki menginstal pembaruan keamanan email Outlook. Untuk informasi tambahan tentang pembaruan ini, 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
Metode SendObject menyediakan cara untuk mengirim pesan MAPI pemrograman dalam Microsoft Access. Namun, metode SendObject ini tidak memberikan Anda akses ke lengkap e-mail fungsi, seperti kemampuan untuk melampirkan file eksternal atau menetapkan tingkat kepentingan pesan. Contoh berikut menggunakan otomatisasi untuk membuat dan mengirim pesan yang dapat Anda gunakan untuk mengambil keuntungan dari banyak fitur pada Microsoft Outlook yang tidak tersedia dengan metode SendObject.

Ada enam langkah utama ketika Anda menggunakan otomatisasi untuk mengirim Microsoft Pesan Outlook:

  • Menginisialisasi sesi Outlook
  • Membuat pesan baru
  • Menambahkan penerima (ke, CC, dan BCC) dan menyelesaikan nama mereka
  • Mengatur properti berlaku, seperti subjek, tubuh, dan pentingnya
  • Menambahkan lampiran (jika ada)
  • Tampilan/Kirim pesan
Untuk mengirim pesan e-mail Microsoft Outlook pemrograman, ikuti langkah-langkah:

  1. Membuat teks contoh file bernama Customers.txt dalam C:\My Documents folder.
  2. Mulai Microsoft Access dan membuka database contoh Northwind.mdb.
  3. Buat modul dan ketik baris berikut Deklarasi bagian jika tidak sudah ada:
    Option Explicit
  4. Pada menu alat, klik referensi.
  5. Dalam kotak referensi, klik Microsoft Outlook 8.0 Object Model dan kemudian klik OK.

    Catatan: Jika Microsoft Outlook 8.0 objek Model tidak muncul dalam Referensi tersedia kotak, browse hard drive untuk file Msoutl8.olb. Jika Anda tidak dapat menemukan file ini, Anda harus menjalankan Program penataan Microsoft Outlook untuk menginstal sebelum Anda melanjutkan dengan contoh ini.
  6. Jenis prosedur berikut dalam modul baru:
          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. Untuk menguji prosedur ini, ketik baris berikut di jendela Debug, dan kemudian tekan ENTER.
    SendMessage benar, "C:\My Documents\Customers.txt"
    Perhatikan bahwa pesan baru akan ditampilkan dalam Microsoft Outlook dengan lampiran.

    Untuk mengirim pesan tanpa menampilkan di Microsoft Outlook, panggilan prosedur dengan nilai False untuk argumen pertama:
    SendMessage palsu, "C:\My Documents\Customers.txt"
    Untuk mengirim pesan tanpa menentukan lampiran, menghilangkan kedua argumen saat memanggil prosedur.
    SendMessage benar

REFERENSI

Untuk informasi lebih lanjut tentang menggunakan otomatisasi dalam Microsoft Access, Cari Index bantuan untuk Otomatisasi, atau meminta Microsoft Office 97 akses Asisten.

Untuk informasi lebih lanjut tentang menggunakan otomatisasi untuk kontrol Microsoft Outlook, Silakan lihat artikel berikut pada Basis Pengetahuan Microsoft:
160502ACC: Menggunakan otomatisasi untuk menambahkan janji temu ke Microsoft Outlook

161012VBA: Cara membuat Item Kontak baru di Outlook dengan Otomatisasi

Properti

ID Artikel: 161088 - Kajian Terakhir: 15 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Access 97 Standard Edition
Kata kunci: 
kbhowto kbinterop kbmt KB161088 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:161088
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.

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