|
-
Sep 27th, 2000, 04:53 AM
#1
Thread Starter
Lively Member
Tink dis will work
Dim moMail As New Outlook.Application
Dim moAddresses As Outlook.AddressLists
Set loNameSpace = moMail.GetNamespace("MAPI")
Set loAddresses = loNameSpace.AddressLists("Global Address List")
Set loAddressList = loAddresses.AddressEntries
lstOutlook.Clear
For liIndx = 1 To loAddressList.Count
lstOutlook.AddItem loAddressList.Item(liIndx).Name
Next
I'm assuming Outlook Express uses the Outlook object library which you'd need to add to your project "Microsoft Outlook 9.0 Object Library". In my app I have a listbox "lstOutlook" which I populate and the user can select from that who will get any mail the app may produce.
Hope this is what you were after.
Anakim
It's a small world but I wouldn't like to paint it.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|