verifier l'appartenance d'une @mail au carnet outlook

[benpinta]

Bonjour,

Est ce que quelqu'un connait la fonction (ou l'astuce) qui pourrait me permettre de me renvoyer un booléen suivant si une chaine de caractère (adresse mail) appartient ou non à mon carnet d'adresse outlook.
merci d'av.

[Oliv-]

Voici qui devrait faire l'affaire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Function EmailExisteDansContact(Email As String) as boolean
'by Oliv' 7/11/2007 pour Outlook 2003
    Dim myolApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myContacts As Outlook.Items
    Dim myItems As Outlook.Items
    Dim myItem As Object
 
    Set myolApp = CreateObject("Outlook.Application")
    Set myNamespace = myolApp.GetNamespace("MAPI")
    Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items
    strWhere = "[Email1Address] ='" & Email & "' or [Email2Address] ='" & Email & "' or [Email3Address] ='" & Email & "'"
    Set myItems = myContacts.Restrict(strWhere)
    If myItems.Count > 0 Then
    EmailExisteDansContact = True
    Else
    EmailExisteDansContact = False
    End If
End Function

[Oliv-]

Salut,
Merci pour ta réponse, mais je crois avoir un soucis pour accéder au carnet d'adresse que j'utilise réellement.
En résumé, j'ai un carnet d'adresse de l'entreprise accéssible d'outlook par le réseau.
Lorsque je fais une requete en vba j'accede uniquement à mes propres contacts j'ai l'impression alors que je voudrais pointer ma base de données sur le carnet dynamique.
J'ai une adresse réseau de ce carnet mais je ne vois pas comment l'utiliser.

Merci d'avance pour tes éventuelles explications.

quel type de carnet d'adresse exchange ? comment y accédes tu concrétement ?

[benpinta]

Le carnet que j'utilise est mon carnet d'adresse de la rubrique "outil" dans outlook, à prioris c'est le carnet d'un serveur exchange,

le problème est d'arriver à pointer sur cette base données à travers mon outlook pour vérifier la bonne orthographe de mes adresses mails sur une base de données perso..

Je ne connais pas le moyen d'adressage..

[benpinta]

mm