Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
MS Outlook
Message
De
21/11/2002 13:34:48
 
 
À
21/11/2002 10:25:47
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00725214
Message ID:
00725366
Vues:
12
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform