2008-11-18 6 views

Répondre

1

Je sais que vous avez parlé C#, mais le script suivant http://www.microsoft.com/technet/scriptcenter/resources/officetips/may05/tips0524.mspx peut-être d'une certaine utilité.

Const olFolderContacts = 10 

Set objOutlook = CreateObject("Outlook.Application") 
Set objNamespace = objOutlook.GetNamespace("MAPI") 

Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items 
intCount = colContacts.Count 

For i = 1 To intCount 
    If TypeName(colContacts.Item(i)) = "DistListItem" Then 
     Set objDistList = colContacts.Item(i) 
     Wscript.Echo objDistList.DLName 
     For j = 1 To objDistList.MemberCount 
    Wscript.Echo objDistList.GetMember(j).Name & " -- " & _ 
       objDistList.GetMember(j).Address 
     Next 
     Wscript.Echo 
    End If 
Next 
Questions connexes