• Home
 · 
• Windows System Services
 · 
• Open the Global Address Book from Exchange

Open the Global Address Book from Exchange

Open the Global Address Book from Exchange

Rate Open the Global Address Book from Exchange

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error Goto OpenAddressBook_error

    Dim cdosession As New MAPI.Session
    Dim cdofolder As MAPI.Folder
    Dim cdomessages As MAPI.Messages
    Dim cdomessage As MAPI.Message
    Dim cdorecips As MAPI.Recipients
    Dim cdorecip As MAPI.Recipient

    cdosession.Logon "kAOs"
    Set cdofolder = cdosession.Outbox
    Set cdomessages = cdofolder.Messages
    Set cdomessage = cdomessages.Add
    cdomessage.Recipients = cdosession.AddressBook(, , , , 3, "To", "CC", "BCC")
    Set cdorecips = cdomessage.Recipients
    For x = 1 To cdorecips.Count
        Set cdorecip = cdorecips.Item(x)
        MsgBox cdorecip.Address
    Next
    cdosession.Logoff
    Exit Sub
    
OpenAddressBook_error:

End Sub