Cara menggunakan otomatisasi untuk mengirim pesan Microsoft Outlook menggunakan Access 2000


Untuk versi Microsoft Access 97 dari artikel ini, lihat
161088 .
Tingkat lanjut: Memerlukan pengkodean ahli, interoperabilitas, dan kemampuan multi-pengguna.

Artikel ini berlaku untuk Microsoft Access database (MDB) dan Microsoft Access proyek (.adp).

DALAM TUGAS INI

Ringkasan


Artikel ini menunjukkan cara menggunakan otomatisasi untuk membuat dan mengirim pesan Microsoft Outlook di Microsoft Access 2000.


Microsoft menyediakan contoh pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan terbiasa dengan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda.
Catatan: Kode berikut ini mungkin tidak bekerja dengan benar jika Anda menginstal pembaruan keamanan email Outlook. Untuk informasi tambahan tentang pembaruan ini, silakan lihat salah satu artikel berikut ini di Pangkalan Pengetahuan Microsoft, tergantung pada versi Outlook yang Anda miliki:
262631 OL2000: informasi tentang pembaruan keamanan email Outlook
262617 OL98: informasi tentang pembaruan keamanan email Outlook
Anda dapat menggunakan metode SendObject untuk mengirim pesan MAPI secara sistematis di Microsoft Access. Namun, metode SendObject tidak memberi Anda akses untuk menyelesaikan fungsionalitas surat, seperti kemampuan untuk melampirkan file eksternal atau menetapkan kepentingan pesan. Contoh berikut menggunakan otomatisasi untuk membuat dan mengirim pesan email yang dapat Anda gunakan untuk memanfaatkan fitur di Microsoft Outlook yang tidak tersedia dengan metode SendObject .

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

  1. Menyiapkan sesi Outlook.
  2. Buat pesan baru.
  3. Menambah Penerima (, CC, dan BCC) dan menyelesaikan nama.
  4. Menetapkan properti sah, seperti subjek, isi, dan penting.
  5. Tambahkan lampiran (jika ada).
  6. Tampilan/mengirim pesan.

Mengirim pesan E-mail Microsoft Outlook secara programatik

  1. Membuat contoh berkas teks yang bernama Customers.txt di map C:\My Documents.
  2. Mulai Microsoft Access, dan membuka database sampel Northwind.mdb.
  3. Membuat modul dan ketik baris berikut pada bagian Deklarasi jika sudah tidak ada:
    Option Explicit
  4. Pada menu alat , klik referensi.
  5. Di kotak referensi , klik untuk memilih Perpustakaan objek Microsoft Outlook 9.0, dan kemudian klik OK.

    Catatan: jika Perpustakaan objek Microsoft Outlook 9.0 tidak ditampilkan di kotak Tersedia referensi , Jelajahi hard disk untuk file, Msoutl9.olb. Jika Anda tidak dapat menemukan berkas ini, Anda harus menjalankan program penataan Microsoft Outlook untuk menginstalnya sebelum Anda melanjutkan contoh ini.
  6. Ketik 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 jendela segera, dan kemudian tekan ENTER:
    SendMessage "C:\My Documents\Customers.txt"
    Untuk mengirim pesan tanpa menentukan lampiran, Abaikan argumen ketika menelepon prosedur, sebagai berikut:
    SendMessage



Referensi


Untuk informasi selengkapnya tentang menggunakan otomatisasi di Microsoft Access, di Editor Visual Basic, klik bantuan Microsoft Visual Basic pada menu bantuan, ketik "Otomatisasi" di bantuan Office atau Wisaya jawaban, dan kemudian klik mencari untuk melihat topik.
209963 ACC2000: cara menggunakan otomatisasi untuk menambahkan janji temu ke Microsoft Outlook
209955 ACC2000: cara menggunakan otomatisasi untuk membuat Item kontak yang baru di Microsoft Outlook