Cara mengotomatisasi Outlook dengan menggunakan Visual Basic

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

Pada Halaman ini

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:
Perkecil tabel iniPerbesar tabel ini
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

Properti

ID Artikel: 220595 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • 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
Kata kunci: 
kbautomation kbhowto kboutlookobj kbmt KB220595 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:220595

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