Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
objApp = ObjectCreate("Outlook.Application") objNameSpace = objApp.GetNamespace("MAPI") ;define constants olFolderContacts = 10 olDistributionList = 69 list = '' objContactFolder = objNameSpace.GetDefaultFolder(olFolderContacts) objItems = objContactFolder.Items For ii = 1 To objItems.count objitem = objItems.item(ii) If objitem.class == olDistributionList myDistListItem = objitem dlname = myDistListItem.DLName list = list : @TAB : dlname EndIf Next distlist = AskItemlist('Distribution list', StrTrim( list ) , @TAB, @SORTED, @SINGLE ) list = '' objDistList = objContactFolder.Items(distlist) For j = 1 To objDistList.MemberCount list = list : @TAB : objDistList.GetMember(j).Name : " -- " : objDistList.GetMember(j).Address Next distlist = AskItemlist('Members of Distribution list', StrTrim( list ), @TAB, @SORTED, @SINGLE ) objDistList = 0 objContactFolder = 0 objItems = 0 Exit
Article ID: W18090
Filename: Get member of Outlook Distribution List.txt
File Created: 2008:11:25:12:46:32
Last Updated: 2008:11:25:12:46:32