Microsoft KB Archive/313797

= HOW TO: List Members of a Distribution List by Using Outlook Object Model in Visual Basic .NET =

Article ID: 313797

Article Last Modified on 6/29/2007

-

APPLIES TO


 * Microsoft Visual Basic .NET 2002 Standard Edition
 * Microsoft Outlook 2002 Standard Edition
 * Microsoft .NET Framework Software Development Kit 1.0 Service Pack 2

-



This article was previously published under Q313797



IN THIS TASK
SUMMARY
 * Create Sample to List the Members of a Distribution List Programmatically

REFERENCES



SUMMARY
This step-by-step article describes how to use Outlook 10.0 Object Library to list the members of a distribution list in Visual Basic .NET.

back to the top

Create Sample to List the Members of a Distribution List Programmatically
 Start Microsoft Visual Studio .NET. On the File menu, point to New, and then click Project. Click Visual Basic Projects under Project Types, and then click Console Application under Templates. By default, Module1.vb is created. Add a reference to the Microsoft Outlook 10.0 Object Library. To do this, follow these steps:  On the Project menu, click Add Reference. Click the COM tab. Click Microsoft Outlook 10.0 Object Library, and then click Select</li> Click OK. If you are prompted to generate wrappers for the library that you selected, click Yes.</li></ol> </li>  In the Code window, replace the default code with the following code: 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(&quot;mapi&quot;) oNS.Logon(&quot;YourValidProfile&quot;, Missing.Value, False, True) ' TODO: ' Get Global Address List. Dim oDLs As Outlook.AddressLists = oNS.AddressLists Dim oGal As Outlook.AddressList = oDLs.Item(&quot;Global Address List&quot;) 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 = &quot;TestDL&quot; 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 </li> Modify the code where you see the TODO comments.</li> Press F5 to build and to run the application.</li> Verify that the members of the distribution list are displayed.</li></ol>

back to the top

<div class="references_section">