ID Artikel: 290658 - Kajian Terakhir: 23 September 2011 - Revisi: 2.0

Bagaimana untuk pemrograman mengimpor Outlook item dari akses

Tampil berdampinganKlik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan
Penerjemahan MesinPeringatan: artikel ini adalah terjemahan oleh mesin
Melihat produk di mana artikel ini berlaku.
Tips SistemThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.

Pada Halaman ini

Perbesar semua | Perkecil semua
Untuk versi Microsoft Outlook 97 dari artikel ini, lihat 170320  (http://support.microsoft.com/kb/170320/ ) .

Untuk versi Microsoft Outlook 98 pada artikel ini, lihat 180981  (http://support.microsoft.com/kb/180981/ ) .

Untuk versi Microsoft Outlook 2000 artikel ini, lihat 208232  (http://support.microsoft.com/kb/208232/ ) .
Kembali ke atas

RINGKASAN

Artikel ini menyediakan tinjauan dan contoh kode untuk membuat Microsoft Kontak Outlook dari informasi yang disimpan dalam database Microsoft Access. Contoh kode di bagian informasi lebih lanjut artikel ini harus dijalankan dari modul global Microsoft Access dan menyediakan mulai titik untuk pengembangan solusi lengkap.
Kembali ke atas

INFORMASI LEBIH LANJUT

Impor dan ekspor fitur di Outlook tidak memungkinkan Anda untuk mengimpor atau ekspor informasi dalam bidang yang ditetapkan pengguna (atau properti). Untuk mengimpor informasi ke dalam bidang ini, Anda mungkin perlu membuat pemrograman solusi yang menggunakan otomatisasi untuk mengubah informasi.

Berikut contoh kode khusus mengubah informasi dari akses ke baru dibuat kontak Outlook, menggunakan Data akses objek (DAO). Dengan modifikasi, Anda dapat menggunakan kode ini sebagai dasar untuk menciptakan jenis item Outlook, janji, catatan, tugas, dan semacamnya.

Terdapat juga ikhtisar dan contoh kode terpisah pada Situs Web Microsoft di lokasi berikut. Ini adalah contoh pertama di whitepaper.
http://msdn2.Microsoft.com/en-US/Office/aa905351.aspx (http://msdn2.microsoft.com/en-us/office/aa905351.aspx)

Kembali ke atas

Pemrograman pertimbangan

  • Dalam kode contoh berikut menggunakan database Northwind disertakan dengan akses 2002. Jika Anda menginstal Microsoft Office ke lokasi lain selain default, pastikan untuk mengubah path ke database di kode contoh.
  • Anda harus mengatur referensi pada perpustakaan objek Microsoft Outlook 10.0. Referensi ke perpustakaan objek Microsoft DAO 3,6, dan perpustakaan objek Microsoft Office 10,0 harus ditetapkan secara default.
  • Jenis bidang yang digunakan dalam contoh ini adalah teks, Access dan Outlook. Mengubah jenis bidang, Anda harus memodifikasi kode tepat.
  • Kontak secara otomatis ditempatkan di folder Kontak default, yang pada tingkat yang sama seperti kotak masuk.
  • CreateItem metode yang digunakan dalam contoh ini menciptakan kontak Outlook baru menggunakan bentuk standar untuk folder Kontak default. Jika Anda membuat formulir kontak Outlook kustom, Anda harus mengatur bidang MessageClass untuk setiap item untuk nama bentuk kustom Anda.
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 (https://partner.microsoft.com/global/30000104)

Microsoft Advisory Services- http://support.Microsoft.com/GP/advisoryservice (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 (http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS)
Kembali ke atas

Contoh kode

Sub ExportAccessContactsToOutlook()

   ' Set up DAO Objects.
   Dim oDataBase As DAO.Database
   Dim rst As DAO.Recordset
   Set oDataBase = OpenDatabase _
      ("c:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb")
   Set rst = oDataBase.OpenRecordset("Customers")

   ' Set up Outlook Objects.
   Dim ol As New Outlook.Application
   Dim olns As Outlook.Namespace
   Dim cf As Outlook.MAPIFolder
   Dim c As Outlook.ContactItem
   Dim Prop As Outlook.UserProperty

   Set olns = ol.GetNamespace("MAPI")
   Set cf = olns.GetDefaultFolder(olFolderContacts)

   With rst
      .MoveFirst

      ' Loop through the Microsoft Access records.
      Do While Not .EOF

         ' Create a new Contact item.
         Set c = ol.CreateItem(olContactItem)

         ' Specify which Outlook form to use.
         ' Change "IPM.Contact" to "IPM.Contact.<formname>" if you've
         ' created a custom Contact form in Outlook.
         c.MessageClass = "IPM.Contact"

         ' Create all built-in Outlook fields.
         If ![CompanyName] <> "" Then c.CompanyName = ![CompanyName]
         If ![ContactName] <> "" Then c.FullName = ![ContactName]

         ' Create the first user property (UserField1).
         Set Prop = c.UserProperties.Add("UserField1", olText)

         ' Set its value.
         If ![CustomerID] <> "" Then Prop = ![CustomerID]

         ' Create the second user property (UserField2).
         Set Prop = c.UserProperties.Add("UserField2", olText)

         ' Set its value and so on....
         If ![Region] <> "" Then Prop = ![Region]

         ' Save and close the contact.
         c.Save
         c.Close

         .MoveNext
      Loop
   End With

End Sub
Kembali ke atas

REFERENSI

Untuk informasi tambahan tentang mengekspor data dari Outlook untuk mengakses, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
290792  (http://support.microsoft.com/kb/290792/ ) Cara mengekspor pemrograman item Outlook untuk mengakses
Untuk informasi tambahan tentang sumber daya yang tersedia dan answersto yang sering diajukan tentang solusi Microsoft Outlook, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
287530  (http://support.microsoft.com/kb/287530/EN-US/ ) OL2002: Pertanyaan tentang bentuk-bentuk Custom dan Outlook solusi
Kembali ke atas
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 (http://go.microsoft.com/fwlink/?LinkId=151500) for other considerations.
Kembali ke atas
Berlaku bagi:
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft Access 2002 Standard Edition
Kembali ke atas
Kata kunci: 
kbdatabase kbimport kbprogramming kbvba kbhowto kbmt KB290658 KbMtid
Kembali ke atas
Penerjemahan MesinPenerjemahan 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:290658  (http://support.microsoft.com/kb/290658/en-us/ )
Kembali ke atas