CARA: Daftar anggota daftar distribusi dengan menggunakan Outlook objek Model dalam Visual Basic.NET

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

Pada Halaman ini

RINGKASAN

Artikel ini selangkah demi selangkah menjelaskan cara menggunakan Outlook 10,0 Perpustakaan objek untuk daftar anggota daftar distribusi dalam Visual Basic .NET.

Membuat sampel untuk daftar anggota daftar distribusi pemrograman

  1. Mulai Microsoft Visual Studio.NET.
  2. Pada Berkas menu, titik Baru, lalu klik Project.
  3. Klik Proyek-proyek Visual Basic di bawah Jenis proyek, lalu klik Aplikasi konsol di bawah Pola acu. Secara default, Module1.vb dibuat.
  4. Menambahkan referensi ke objek 10,0 Microsoft Outlook Perpustakaan. Untuk melakukannya, ikuti langkah-langkah berikut:
    1. Pada Project menu, klik Menambahkan referensi.
    2. Klik COM tab.
    3. Klik Microsoft Outlook 10,0 objek Perpustakaan, lalu klik Pilih
    4. Klik Oke. Jika Anda diminta untuk menghasilkan pembungkus untuk perpustakaan yang yang dipilih, klik Ya.
  5. Dalam jendela kode, mengganti kode standar dengan kode berikut:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            ' Create Outlook application.
            Dim oApp As Outlook.Application = New Outlook.Application()
    
            ' Get Mapi NameSpace and Logon.
            Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
            oNS.Logon("YourValidProfile", Missing.Value, False, True) ' TODO:
          
            ' Get Global Address List.
            Dim oDLs As Outlook.AddressLists = oNS.AddressLists
            Dim oGal As Outlook.AddressList = oDLs.Item("Global Address List")
            Console.WriteLine(oGal.Name)
    
            ' Get a specific distribution list.
            ' TODO: Replace the distribution list with a distribution list that is available to you.
            Dim sDL As String = "TestDL"
            Dim oEntries As Outlook.AddressEntries = oGal.AddressEntries
            ' No filter available to AddressEntries
            Dim oDL As Outlook.AddressEntry = oEntries.Item(sDL)
    
            Console.WriteLine(oDL.Name)
            Console.WriteLine(oDL.Address)
            Console.WriteLine(oDL.Manager)
    
            ' Get all of the members of the distribution list.
            oEntries = oDL.Members
            Dim oEntry As Outlook.AddressEntry
            Dim i As Integer
    
            For i = 1 To oEntries.Count
                oEntry = oEntries.Item(i)
                Console.WriteLine(oEntry.Name)
    
                ' Display the Details dialog box.
                'oDL.Details(Missing.Value)
            Next
    
            ' Log off.
            oNS.Logoff()
    
            ' Clean up.
            oApp = Nothing
            oNS = Nothing
            oDLs = Nothing
            oGal = Nothing
            oEntries = Nothing
            oEntry = Nothing
        End Sub
    
    End Module
    					
  6. Memodifikasi kode di mana Anda melihat komentar TODO.
  7. Tekan F5 untuk membangun dan menjalankan aplikasi.
  8. Pastikan bahwa anggota daftar distribusi ditampilkan.

REFERENSI

Untuk informasi lebih lanjut, kunjungi Website Microsoft berikut Situs Web Developer Network (MSDN):
Microsoft Office Development with Visual Studio
.aspx http://msdn2.Microsoft.com/en-us/library/aa188489 (office.10)

Properti

ID Artikel: 313797 - Kajian Terakhir: 24 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Outlook 2002 Standard Edition
Kata kunci: 
kbhowtomaster kbmt KB313797 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:313797

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