Cara mengotomatisasi Outlook dari program lain

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 201096 - Melihat produk di mana artikel ini berlaku.
Untuk versi Microsoft Outlook 97 artikel ini, Lihat 168095.
Untuk versi Microsoft Outlook 98 artikel ini, Lihat 181202.
Untuk versi Microsoft Outlook 2002 artikel ini, Lihat 291120.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini memberikan ikhtisar pemrograman Outlook menggunakan otomatisasi dari program lain.

INFORMASI LEBIH LANJUT

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat, termasuk, namun tidak terbatas pada, jaminan tersirat mengenai keadaan yang dapat diperjualbelikan dan/atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrograman yang ditunjukkan dan alat-alat yang digunakan untuk membuat dan memperbaiki prosedur. Profesional dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh tersebut untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi kebutuhan spesifik Anda.
Jika Anda memiliki terbatas pengalaman pemrograman, Anda mungkin ingin menghubungi Microsoft Certified Partner atau Microsoft Advisory Services. Untuk informasi lebih lanjut, kunjungi situs Web Microsoft ini:

Microsoft Certified Partner- https://Partner.Microsoft.com/global/30000104

Microsoft Advisory Services- http://support.Microsoft.com/GP/advisoryservice

Untuk informasi lebih lanjut tentang opsi dukungan yang tersedia dan tentang cara menghubungi Microsoft, kunjungi Website Microsoft berikut:http://support.Microsoft.com/default.aspx?scid=Fh;EN-US;CNTACTMS Otomatisasi memungkinkan satu program untuk mengendalikan lain program oleh baik mengeluarkan perintah atau mengambil informasi pemrograman. Anda dapat menggunakan kode contoh dalam artikel ini di Microsoft Word, Microsoft Excel, Microsoft Visual Basic, atau program lain yang mendukung Otomatisasi.

Awal vs terlambat mengikat

Anda dapat menggunakan "awal" atau "akhir" mengikat untuk memulai Otomatisasi sesi. Akhir mengikat menggunakan baik GetObject atau CreateObject fungsi untuk menginisialisasi Outlook. Sebagai contoh, kode berikut set objek ke Outlook program, yang adalah tingkat tertinggi objek dalam Model objek Outlook. Semua otomatisasi kode harus terlebih dahulu menetapkan Outlook.Application objek untuk mengakses salah satu Outlook objek lain di bawah ini itu.
Dim objOL as Object
Set objOL = CreateObject("Outlook.Application")
				
Untuk menggunakan ikatan lama, Anda harus terlebih dahulu untuk referensi Outlook tersedia perpustakaan objek. Untuk melakukannya dari Visual Basic (VB) (atau Visual Basic untuk Aplikasi, ikuti langkah berikut:
  1. Di Editor Visual Basic, pada Alat menu, klik Referensi.
  2. Klik untuk memilih Microsoft Outlook 9,0 objek Perpustakaan Periksa kotak, dan kemudian klik Oke.
Perpustakaan objek adalah Msoutl9.olb dan menginstal C:\Program Files\Microsoft Office\Office folder secara default. Sekali Anda referensi perpustakaan objek Outlook, Anda dapat menggunakan sintaks berikut untuk memulai Sesi Outlook:
Set ol = New Outlook.Application
				
Menggunakan ikatan memiliki dua keuntungan penting. Pertama, kode menggunakan awal mengikat berjalan lebih cepat daripada kode menggunakan ikatan terbaru (CreateObject/GetObject). Kedua, karena Anda referensi objek Outlook Perpustakaan, Anda bisa mendapatkan online Outlook pemrograman bantuan menggunakan browser objek dan membantu sistem.

Model objek Outlook

Model objek Outlook memungkinkan Anda untuk memanipulasi data yang disimpan dalam Folder Outlook. Fitur baru di Outlook juga memungkinkan Anda untuk memanipulasi Outlook Bar, bekerja dengan item yang dipilih dalam folder, dan memanipulasi keduanya tingkat item dan level aplikasi windows. Dengan menambahkan acara, kode Anda dapat menanggapi banyak hal yang terjadi di Outlook, memungkinkan Anda untuk membuat Event-driven solusi.

Namun, Anda akan menemukan bahwa dibandingkan dengan kata dan Excel, fungsionalitas terbatas tersedia untuk mengontrol Outlook itu sendiri. Banyak fitur Outlook tidak terbuka atau disesuaikan melalui Outlook model objek. Misalnya, Anda tidak dapat menggunakan model objek untuk mengubah Opsi pengaturan pada Alat menu, meskipun fitur baru di Outlook adalah bahwa Anda dapat dapat membuat halaman Anda sendiri di Opsi, atau Properti folder kotak dialog.

CATATAN: Sebagai solusi mungkin keterbatasan mengenai objek model, Anda dapat menggunakan CommandBars objek yang disediakan oleh Microsoft Office untuk melaksanakan sebagian besar perintah yang ditugaskan untuk tombol toolbar atau perintah menu. Sebagai contoh, Anda dapat menggunakan CommandBars objek untuk menjalankan Panggilan baru perintah, pada Dial submenu dari Alat menu, untuk membawa Panggilan baru kotak dialog.

Kebanyakan solusi pemrograman perlu berinteraksi dengan data yang disimpan dalam Outlook. Outlook menyimpan semua informasi di Pesan antarmuka pemrograman aplikasi (MAPI) folder. Oleh karena itu, setelah Anda mengatur variabel objek Outlook.Application, Anda umumnya akan mengatur Namespace objek untuk MAPI:
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
				
Setelah Anda mengatur Namespace objek, Anda sudah siap untuk mengatur benda berikutnya ke folder dalam MAPI Namespace. Salah satu cara yang umum untuk melakukan ini adalah dengan menentukan Outlook folder default, yang folder di tingkat map yang sama seperti kotak masuk yang menerima e-mail masuk. Kode berikut akan menetapkan objFolder objek untuk folder Kontak default:
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
Set objFolder = olns.GetDefaultFolder(olFolderContacts)
				
Untuk informasi tambahan tentang referensi jenis folder, Silakan lihat artikel berikut pada Basis Pengetahuan Microsoft:
208520 Pemrograman contoh untuk referensi item dan folder
Setelah Anda pemrograman di folder yang berisi item yang Anda inginkan untuk menggunakan atau membuat, Anda dapat menggunakan kode yang sesuai untuk menyelesaikan tugas Anda pemrograman. Lihat contoh-contoh nanti dalam artikel untuk beberapa contoh pemrograman umum.

Selain untuk mengakses Outlook data dari aplikasi lain, Anda dapat juga memiliki aplikasi Anda menyadari dari ketika peristiwa tertentu terjadi di Outlook. Contoh peristiwa adalah ketika item ditambahkan ke folder, ketika pengguna memilih item yang berbeda dalam folder, atau Ketika Outlook pengingat ditampilkan. Untuk daftar lengkap tersedia peristiwa, Lihat Microsoft Outlook Visual Basic referensi (Vbaoutl9.chm). Untuk informasi tentang mendapatkan berkas Bantuan, lihat bagian referensi ini artikel.

Misalnya, untuk bagaimana Anda dapat mengintegrasikan Outlook peristiwa di aplikasi Anda, silakan lihat artikel berikut dalam Pengetahuan Microsoft Base:
225502 Menggunakan Outlook acara di program lain

Contoh kode untuk tugas-tugas pemrograman umum

Contoh: Membuat Item tugas Default baru

Sub CreateNewDefaultOutlookTask()

   Dim ol As Outlook.Application
   Dim NewTask As Outlook.TaskItem

   ' Set the Application object.
   Set ol = New Outlook.Application

   ' Create a new standard task.
   Set NewTask = ol.CreateItem(olTaskItem)

   ' Display the new task form so the user can fill it out.
   NewTask.Display

End Sub
				

Contoh: Membuat kontak baru menggunakan formulir Custom

Sub CreateNewContactFromCustomForm()

   Dim ol As Outlook.Application
   Dim olns As Outlook.NameSpace
   Dim objFolder As Outlook.MAPIFolder
   Dim AllContacts As Outlook.Items
   Dim NewContact As Outlook.ContactItem

   ' Set the Application object.
   Set ol = New Outlook.Application

   ' Set the Namespace object.
   Set olns = ol.GetNamespace("MAPI")

   ' Set the default Contacts folder.
   Set objFolder = olns.GetDefaultFolder(olFolderContacts)

   ' Set objAllContacts equal to the collection of all contacts.
   Set AllContacts = objFolder.Items

   ' Add a new contact to the AllContacts collection using the
   ' "IPM.Contact.MyForm" form.
   Set NewContact = AllContacts.Add("IPM.Contact.MyForm")

   ' Display the new contact form.
   NewContact.Display

End Sub
				

Contoh: Loop melalui semua kontak Default

Sub GetOutlookContacts()

   Dim ol As Object
   Dim olns As Object
   Dim objFolder As Object
   Dim objAllContacts As Object
   Dim Contact As Object

   ' Set the Application object.
   Set ol = New Outlook.Application

   ' Set the Namespace object.
   Set olns = ol.GetNamespace("MAPI")

   ' Set the default Contacts folder.
   Set objFolder = olns.GetDefaultFolder(olFolderContacts)

   ' Set objAllContacts equal to the collection of all contacts.
   Set objAllContacts = objFolder.Items

   ' Loop through each contact.
   For Each Contact In objAllContacts

      ' Display the Fullname field for the contact.
      MsgBox Contact.FullName

   Next

End Sub
				

REFERENSI

Untuk informasi tambahan tentang sumber daya yang tersedia dan jawaban untuk pertanyaan umum tentang Microsoft Outlook 2000 solusi, Silakan lihat artikel berikut pada Basis Pengetahuan Microsoft:
146636 Pertanyaan tentang bentuk kustom dan Outlook solusi
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: 201096 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Outlook 2000 Standard Edition
Kata kunci: 
kbautomation kbdtacode kbhowto kbprogramming kbmt KB201096 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:201096

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