Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Exchange 2000 public folders
Message
De
26/11/2003 14:55:59
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
Exchange 2000 public folders
Divers
Thread ID:
00853827
Message ID:
00853827
Vues:
32
Hi all,

I write this,

**--------------------------------------------------------------------
oOutlook = CreateObject("Outlook.Application")
oNameSpace = oOutlook.GetNameSpace("MAPI")
oCNoDeseado = oNameSpace.Folders("Carpetas públicas").Folders("Todas las carpetas públicas").Folders("Correo no deseado")

_ClipText = ''
FOR lnumX = 1 TO oCNoDeseado.Items.Count
oItem = oCNoDeseado.Items(lnumX)
FOR lnumY = 1 TO oItem.ReplyRecipients.Count
oItemP = oItem.ReplyRecipients.Item(lnumY)
IF lnumY = 1 THEN
_ClipText = _ClipText + TEXTMERGE("<>, ")
ELSE
_ClipText = _ClipText + ', '
ENDIF
_ClipText = _ClipText + OItemp.Address + CHR(13)
ENDFOR
ENDFOR

KEYBOARD '{CTRL+V}'
MODIFY COMMAND
**--------------------------------------------------------------------

The result for this commands is like this:

1 Charlene Cope, l98kuewp@hotmail.com
4 Holiday Gifts, opuvavmnogtvp@pgqexeikn.dealofalifetime.net
8 Breast Booster, Info11ljtnodjb@breastbooster.com
10 Franquicia Internacional, catterine@international.com
11 Franquicia Internacional, catterine@international.com
13 Tapia, zixwqusgmxkro@hongkong.com
15 Adeline Bryson, j74qatmcdh@yahoo.com

Wath I need:
I need the list of address of email sender, stored in a public folder.

Questions:
- Why the items (2,3,5,6,7,9,12,14) report oItem.ReplyRecipients.Count = 0
- There is another way to access the field from (This don't appear in the
properties list)
- How Outlook show this field and I don't access?

Thank's a lot.
Mauricio Mesa
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform