Cara mengotomatisasi Outlook dengan menggunakan Visual Basic

Dukungan untuk Office 2003 telah berakhir

Microsoft mengakhiri dukungan untuk Office 2003 pada 8 April 2014. Perubahan ini telah memengaruhi pemutakhiran perangkat lunak dan opsi keamanan Anda. Pelajari apa artinya ini bagi Anda dan cara untuk tetap terlindungi.

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:220595
Artikel ini telah diarsipkan. Artikel ditawarkan dalam bentuk "apa adanya" dan tidak akan dapat diperbarui lagi.
RINGKASAN
Artikel ini menunjukkan bagaimana untuk pemrograman mengendalikan Microsoft Outlook menggunakan otomatisasi dari Visual Basic. Contoh menunjukkan membuat kontak, membuat janji, dan mengirim pesan dengan menggunakan Microsoft Outlook-model objek.
INFORMASI LEBIH LANJUT
Ikuti langkah-langkah di bawah ini untuk membuat dan menjalankan contoh. Pada menjalankan sampel, Anda perlu referensi awal-terikat untuk jenis Microsoft Outlook perpustakaan. Tabel berikut mencantumkan nama file perpustakaan jenis untuk berbagai versi Microsoft Outlook:
Versi OutlookBagaimana perpustakaan jenis muncul di daftar referensiNama file
Outlook 97"Microsoft Outlook 8.0 objek Perpustakaan"msoutl8.olb
msoutl8.olb«Microsoft Outlook 98 objek» Perpustakaan"msoutl85.olb
Outlook 2000"Microsoft Outlook 9,0 objek Perpustakaan"msoutl9.olb
Outlook 2002"Microsoft Outlook 10,0 objek Perpustakaan"msoutl.olb
Office Outlook 2003"Microsoft Outlook 11,0 objek Perpustakaan"msoutl.olb

Membuat sampel otomatisasi

  1. Mulai Visual Basic dan buat baru Standard EXE proyek.
  2. Dari Project menu, pilih Referensi dan pilih Microsoft Outlook.
  3. Tambahkan tombol untuk formulir Anda.
  4. Double-klik tombol, dan kemudian tambahkan berikut kode:
     ' Start Outlook. ' If it is already running, you'll use the same instance...   Dim olApp As Outlook.Application   Set olApp = CreateObject("Outlook.Application")     ' Logon. Doesn't hurt if you are already running and logged on...   Dim olNs As Outlook.NameSpace   Set olNs = olApp.GetNamespace("MAPI")   olNs.Logon ' Create and Open a new contact.   Dim olItem As Outlook.ContactItem   Set olItem = olApp.CreateItem(olContactItem) ' Setup Contact information...   With olItem      .FullName = "James Smith"      .Birthday = "9/15/1975"      .CompanyName = "Microsoft"      .HomeTelephoneNumber = "704-555-8888"      .Email1Address = "someone@microsoft.com"      .JobTitle = "Developer"      .HomeAddress = "111 Main St." & vbCr & "Charlotte, NC 28226"   End With    ' Save Contact...   olItem.Save     ' Create a new appointment.   Dim olAppt As Outlook.AppointmentItem   Set olAppt = olApp.CreateItem(olAppointmentItem)     ' Set start time for 2-minutes from now...   olAppt.Start = Now() + (2# / 24# / 60#)     ' Setup other appointment information...   With olAppt      .Duration = 60      .Subject = "Meeting to discuss plans..."      .Body = "Meeting with " & olItem.FullName & " to discuss plans."      .Location = "Home Office"      .ReminderMinutesBeforeStart = 1      .ReminderSet = True   End With     ' Save Appointment...   olAppt.Save     ' Send a message to your new contact.   Dim olMail As Outlook.MailItem   Set olMail = olApp.CreateItem(olMailItem) ' Fill out & send message...   olMail.To = olItem.Email1Address   olMail.Subject = "About our meeting..."   olMail.Body = _        "Dear " & olItem.FirstName & ", " & vbCr & vbCr & vbTab & _        "I'll see you in 2 minutes for our meeting!" & vbCr & vbCr & _        "Btw: I've added you to my contact list."   olMail.Send     ' Clean up...   MsgBox "All done...", vbMsgBoxSetForeground   olNS.Logoff   Set olNs = Nothing   Set olMail = Nothing   Set olAppt = Nothing   Set olItem = Nothing   Set olApp = Nothing						
  5. Menjalankan proyek, dan klik tombol untuk menjalankan kode.
Setelah kode berjalan, Anda harus memiliki kontak baru bernama "James Smith,"janji dijadwalkan dalam dua menit dengan pengingat untuk muncul di satu menit, dan telah mengirim pesan ke someone@microsoft.com. Juga, karena Anda menambahkan hari ulang tahun untuk kontak Anda (9/15), acara telah ditambahkan untuk Anda Outlook kalender untuk mengingatkan Anda tentang hari.

Baru untuk Outlook 2002 adalah dua dialog Box: satu peringatan bahwa sebuah program sedang mencoba untuk mengakses e-mail alamat Anda telah disimpan dalam Outlook dan meminta jika Anda ingin membiarkan ini, dan pesan lain yang menyatakan bahwa program mencoba mengirim e-mail. Ini fitur akan melindungi Anda dari sadar yang digunakan oleh virus yang mengirim e-mail dari sistem Anda.

Untuk informasi selengkapnya, klik nomor artikel berikut untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
290500Deskripsi fitur keamanan terkait pengembang e-mail dalam Outlook 2002
REFERENSI
Untuk informasi lebih lanjut tentang sumber daya pemrograman Outlook, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
166368Sumber daya untuk bentuk kustom dan pemrograman di Outlook 97
180826 Sumber daya untuk bentuk kustom dan pemrograman di Outlook 98
271225 Sumber daya untuk bentuk kustom dan pemrograman pada Outlook 2000
287531 Daftar sumber daya untuk bentuk kustom dan pemrograman dengan Outlook 2002
313802 Bagaimana untuk mengambil kontak dengan menggunakan Outlook object model dalam Visual Basic.NET
313788 Cara membuat janji dengan menggunakan model objek Outlook di Microsoft Visual Basic.NET

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 220595 - Tinjauan Terakhir: 12/05/2015 13:08:59 - Revisi: 2.0

Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Office Outlook 2003, Microsoft Outlook 2002 Standard Edition, Microsoft Outlook 2000 Standard Edition, Microsoft Outlook 97 Standard Edition, Microsoft Outlook 98 Standard Edition

  • kbnosurvey kbarchive kbautomation kbhowto kboutlookobj kbmt KB220595 KbMtid
Tanggapan