Dimanche 22 Octobre 2017  
Navigation
FAQ Outlook
» Foire Aux Questions «
Recherche
Téléchargements
Forums Outlook
Plan du site
Liens
Login

Les inscriptions sont fermées

Pseudo

Mot de passe

Se souvenir de moi



Mot de passe oublié ? Mot de passe oublié ?
Connexions
Bienvenue à [FAMACLUB]
le 1,414ème membre
Visiteurs en ligne : 4
Membres en ligne : 0

 EMERGENCY 12 semaines
 callaghi 14 semaines
 JièL 16 semaines
 zorro71 20 semaines
 Alphator 39 semaines
 ande 44 semaines
 Oliv 46 semaines
 cubitus 50 semaines
 angel 60 semaines
 Quartzkyte 69 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:1 046
En ligne :4
Max. en ligne:312
Max. / jour:66 529
Total hier:4 661
Total ce mois:111 101
Total visites:18 501 999
Moyenne/jour:5 667

Dernières 24h

























Publicité ; elle permet de financer le site
Navigation parmi les catégories/articles
« Catégorie     Q15000 Macros - VBA (41)  Catégorie »
[<<]  « Article  Article »  [>>]
R15420 [VBA] Trouver une adresse Email dans les Contacts
Vous souhaitez vérifier si une adresse Email existe dans vos contacts ? Voici une SUB et une fonction qui vous donne le nombre d'occurences.
 Private Sub TrouveEmailDansContact()
'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
    Email = InputBox("Quelle adresse cherchez vous ?", "Recherche dasns les contacts")
    Set myolApp = 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)
    For Each myItem In myItems
        If (myItem.Class = olContact) Then
            MsgBox myItem.FullName & ":Email1 [" & myItem.Email1Address & "]" & vbCr & "Email2 [" & myItem.Email2Address & "]" & vbCr & "Email3 [" & myItem.Email2Address & "]"
        End If
    Next
End Sub
 
Private Function EmailExisteDansContact(Email As String)
'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)
    n = 0
    For Each myItem In myItems
        If (myItem.Class = olContact) Then
            n = n + 1
        End If
    Next
    EmailExisteDansContact = n
End Function
 

Private Sub testeEmail()
'by Oliv' 7/11/2007 pour Outlook 2003
MsgBox EmailExisteDansContact("toto@toto.fr")
End Sub  

Publié par Oliv le mercredi 07 novembre 2007 11:10 0 Commentaires 9348 Lecture(s) Imprimer
Commentaires
les commentaires sont fermés.
Copyright et partage
Ce site est sous licence Creative Commons.
Vous pouvez utiliser toutes les informations présentent ici, mais il vous est interdit de les reproduire sans citer la source.

Creative Commons License
OUI au partage
NON au « copillage »

Ajouter aux favoris / partager : 
URL :
BBcode :
HTML :
Cliquez ci dessus sur le lien que vous voulez copier et [Ctrl] + [C] ou cliquez sur le bouton [ C ]
Articles similaires
Articles Catégories
R06032 Utiliser l'archivage automatique avec les dates de réception Q06000 Les fichiers d'Outlook
R15045 [VBA] Ouvrir l'arborescence des pst contenant une boîte de réception Q15000 Macros - VBA
R15930 [VBA] Création de menu dans outlook Q15000 Macros - VBA
R08250 Outlook ne trouve pas mes messages lors d'une recherche Q08000 Erreurs et problèmes
R17070 VSTO et les formulaires d'Outlook 2007 Q17000 Formulaires
Nuage de tags
R12110 Un éphéméride dans Outlook, R01150 Afficher un compte Hotmail avec Outlook 2000 et suivant, R17040 Envoyer un e-mail depuis un formulaire de rendez-vous, R15930 [VBA] Création de menu dans outlook, R17005 Création d'éléments basique, R17030 Pourquoi les données saisies dans un formulaire perso ne sont elles pas transmises / enregistrées ?, R16010 Importer les messages d'Outlook Express, R08041 Outlook 2002 (2000 ?) ne mémorise pas le mot de passe des comptes sous Vista, R01080 Différer l'envoi d'un message, R06025 Limiter la taille maximum du .PST, R04090 Pièces jointes invisibles ou reçues en winmail.dat ou ATT00001.dat, R17030 Pourquoi les données saisies dans un formulaire perso ne sont elles pas transmises / enregistrées ?, R01050 Choisir le format d'envoi des messages, R15410 [VBA] Remplacer dans les Contacts l'envoi au format RTF, R08070 Réparer / remettre en état Outlook ou le PST (6 solutions à appliquer dans l'ordre)

aucun Crack, CrackZ, no-CD, DownloadZ, TelechargementZ, Serial, Numéro de série, N0 de série, Serialz ni Keygen pour Outlook sur ce site.

Blague aléatoire
Publicité
Météo Marseille
[/\] Copyright JièL / Jean-Louis Goubert © 2003-2009 [/\]