Using the Outlook object, adding a recipient to a Distribution List

[crowegreg]

Within our corporate Microsoft Exchange, I'm trying to add a recipient to one of our Distribution lists. The code I've listed below allows me to view the members of the selected distribution list. I cannot figure out how to add a recipient to the distribution list.

        Dim olApp As Outlook.Application
        Dim objNS As Outlook.Namespace
        Dim objAddrList As Outlook.AddressList
        Dim olDistListItem As Object
        Dim objAddrEntry As Outlook.AddressEntry
        
        On Error GoTo ErrorHandler
        Set olApp = GetObject(, "Outlook.Application")
        Set objNS = olApp.GetNamespace("MAPI")
        Set objAddrList = objNS.Session.AddressLists("Global Address List")
        DistName = "/CHI ITS Directors All"
        Set olDistListItem = objAddrList.AddressEntries(DistName)

        MsgBox olDistListItem.Members.Count
        For i = 1 To olDistListItem.Members.Count
            Set objAddrEntry = olDistListItem.Members.Item(i)
            MsgBox objAddrEntry.Name
        Next
        Set objAddrEntry = Nothing
        Set olDistListItem = Nothing
        Set objAddrList = Nothing
        Set objNS = Nothing
        Set olApp = Nothing

Thanks in advance!!

[orange]

Just found these - hope there's something good there.

http://msdn.microsoft.com/en-us/libr...ice.15%29.aspx

http://stackoverflow.com/questions/2...-list-using-vb
which has this link
http://naterice.com/articles/62

[crowegreg]

Thank you for the reply.

Of the links you provided, I previously looked at the first one. This one creates a new distribution list. I can't figure out the changes to use an existing distribution list.

Any further assistance would be greatly appreciated.

[orange]

Try this, read the comments because it seems to work after some mod??
via Google