Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Lister les contacts Outlook

Lister les contacts Outlook

3 réponses
Avatar
anonyme
Bonjour,

Je souhaite lister les contacts Oulook appartenant à mon carnet d'adresses.
Le code disponible à l'adresse http://memoaccess.free.fr/outlook.htm, ne me
convient pas totalement.
En effet, il y a une erreur d'incompatibilité de type lorsque un de mes
contacts est une liste de diffusion.
N'y a-t-il pas moyen d'utiliser une condition pour différencier contact et
liste de diffusion :

For Each OlContact In OlItems
If <c'est un contact>
StrContacts = StrContacts & vbCrLf & _
OlContact.LastName & " - " & OlContact.Email1Address
Else
<Lister les contacts de la liste de diffusion>
End If
Next OlContact

Merci de vos réponses.
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Anor
Bonjour,

Ajoute en 2ème ligne
On Error Resume Next

ça ignorera les listes de diffusion à cause de l'erreur sur la
propriété FullName

Sinon,
If OlContact.Class = "IPM.Contact" then
le code
End If

If OlContact.Class = "IPM.DistList" then
un autre code
end if

--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------


| Bonjour,
|
| Je souhaite lister les contacts Oulook appartenant à mon carnet
| d'adresses. Le code disponible à l'adresse
| http://memoaccess.free.fr/outlook.htm, ne me convient pas totalement.
| En effet, il y a une erreur d'incompatibilité de type lorsque un de
| mes contacts est une liste de diffusion.
| N'y a-t-il pas moyen d'utiliser une condition pour différencier
| contact et liste de diffusion :
|
| For Each OlContact In OlItems
| If <c'est un contact>
| StrContacts = StrContacts & vbCrLf & _
| OlContact.LastName & " - " & OlContact.Email1Address
| Else
| <Lister les contacts de la liste de diffusion>
| End If
| Next OlContact
|
| Merci de vos réponses.
Avatar
Anor
oups !
c'est la propriété MessageClass qu'il faut prendre, et non Class tout court
mais le on error resume next marche est tout aussi sûr ;-))

--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------

Anor <http://memoaccess.free.fr/anor/email.htm> :
| Bonjour,
|
| Ajoute en 2ème ligne
| On Error Resume Next
|
| ça ignorera les listes de diffusion à cause de l'erreur sur la
| propriété FullName
|
| Sinon,
| If OlContact.Class = "IPM.Contact" then
| le code
| End If
|
| If OlContact.Class = "IPM.DistList" then
| un autre code
| end if
.
Avatar
anonyme
Je te remercie, je teste ça tout de suite.



"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit
dans le message de
news:

oups !
c'est la propriété MessageClass qu'il faut prendre, et non Class
tout
court
mais le on error resume next marche est tout aussi sûr ;-))

--
à+
Arnaud