Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
MS Outlook
Message
From
21/11/2002 13:34:48
 
 
To
21/11/2002 10:25:47
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00725214
Message ID:
00725366
Views:
7
>Is there a way to retrieve all the email address' from MS outlook using VFP6?

It could be as simple as:
oOutlook = createobject("outlook.application")
oNameSpace = oOutlook.GetNameSpace("MAPI")
oNameSpace.Logon

oFolder = oNameSpace.GetDefaultFolder(10) && contacts

for each oItem in oFolder.Items
if type("oItem.Email1Address") == "C"
? oItem.Email1Address
endif
next




Stu
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform