by kAOs (9 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 2nd December 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Open the Global Address Book from Exchange
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