J'ai une question à propos de Outlook : "je cherche a lire les proprietés
d'un recipient tel que telephone, email adresse, le pays, la date de
l'anniversaire, etc qui se trouve dans l'address book, PAS DANS LES CONTACT.
Ce sont en fait toutes les propriétés qu'on voit quand on applique le code
suivant (aprés avoir lié la bibliotheque outlook 8.0):
Dim ol As Outlook.Application
Dim ci As Outlook.ContactItem
Set ol = CreateObject("outlook.application")
Set ci = ol.CreateItem(olContactItem)
Seulement je voudrais voir les propriétés d'un récipient existant. Quelqu'un
peut-il m'aider ?? Merçi."
--
D.Schneider
Mail to: http://cerbermail.com/?CSPafqhXaE
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anor
Bonjour DS
DS a confié : | Bonjour, | | J'ai une question à propos de Outlook : "je cherche a lire les | proprietés d'un recipient tel que telephone, email adresse, le pays, | la date de l'anniversaire, etc qui se trouve dans l'address book, PAS | DANS LES CONTACT. Ce sont en fait toutes les propriétés qu'on voit | quand on applique le code suivant (aprés avoir lié la bibliotheque | outlook 8.0): Dim ol As Outlook.Application | Dim ci As Outlook.ContactItem | | Set ol = CreateObject("outlook.application") | Set ci = ol.CreateItem(olContactItem) | Seulement je voudrais voir les propriétés d'un récipient existant. | Quelqu'un peut-il m'aider ?? Merçi."
Peut-être pas la peine de créer un nouvel objet contact ...
Regarde la procédure suivante http://memoaccess.free.fr/outlook.htm#ReadContacts
Il te suffira de la transformer en fonction, de rajouter un argument sur lequel tu feras le test :
par exemple, ça pourrait ressembler à ça :
For Each OlContact In OlItems if OlContact.lapropriete = TonArgument then LaFonction = OlContact.Email1Address exit function end if Next OlContact
DS <denis.pasdesapam.schneider@roche.pasdespam.com> a confié :
| Bonjour,
|
| J'ai une question à propos de Outlook : "je cherche a lire les
| proprietés d'un recipient tel que telephone, email adresse, le pays,
| la date de l'anniversaire, etc qui se trouve dans l'address book, PAS
| DANS LES CONTACT. Ce sont en fait toutes les propriétés qu'on voit
| quand on applique le code suivant (aprés avoir lié la bibliotheque
| outlook 8.0): Dim ol As Outlook.Application
| Dim ci As Outlook.ContactItem
|
| Set ol = CreateObject("outlook.application")
| Set ci = ol.CreateItem(olContactItem)
| Seulement je voudrais voir les propriétés d'un récipient existant.
| Quelqu'un peut-il m'aider ?? Merçi."
Peut-être pas la peine de créer un nouvel objet contact ...
Regarde la procédure suivante
http://memoaccess.free.fr/outlook.htm#ReadContacts
Il te suffira de la transformer en fonction,
de rajouter un argument sur lequel tu feras le test :
par exemple, ça pourrait ressembler à ça :
For Each OlContact In OlItems
if OlContact.lapropriete = TonArgument then
LaFonction = OlContact.Email1Address
exit function
end if
Next OlContact
DS a confié : | Bonjour, | | J'ai une question à propos de Outlook : "je cherche a lire les | proprietés d'un recipient tel que telephone, email adresse, le pays, | la date de l'anniversaire, etc qui se trouve dans l'address book, PAS | DANS LES CONTACT. Ce sont en fait toutes les propriétés qu'on voit | quand on applique le code suivant (aprés avoir lié la bibliotheque | outlook 8.0): Dim ol As Outlook.Application | Dim ci As Outlook.ContactItem | | Set ol = CreateObject("outlook.application") | Set ci = ol.CreateItem(olContactItem) | Seulement je voudrais voir les propriétés d'un récipient existant. | Quelqu'un peut-il m'aider ?? Merçi."
Peut-être pas la peine de créer un nouvel objet contact ...
Regarde la procédure suivante http://memoaccess.free.fr/outlook.htm#ReadContacts
Il te suffira de la transformer en fonction, de rajouter un argument sur lequel tu feras le test :
par exemple, ça pourrait ressembler à ça :
For Each OlContact In OlItems if OlContact.lapropriete = TonArgument then LaFonction = OlContact.Email1Address exit function end if Next OlContact
