Jeudi 27 Février 2020  
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 : 3
Membres en ligne : 0

 Oliv 14:29:37
 JièL 8 semaines
 pirobert 41 semaines
 jcgdisle 66 semaines
 EMERGENCY 86 semaines
 beaulieu 98 semaines
 callaghi 102 semaines
 Charlie76 107 semaines
 joscopp 118 semaines
 julbast 119 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:490
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:2 241
Total ce mois:72 447
Total visites:23 323 790
Moyenne/jour:5 657

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 10864 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
R00020 Mettre Outlook 2002 (et autres) dans le systray, R06080 Créer rapidement une règle selon un message, R00080 Ajouter le moteur de recherche de la FAQ à IE7, R99170 Nouveau logiciel, R06050 Ouvrir un dossier d'archive (ou un autre .PST), R00010 Outlook ou Outlook Express ?, R03080 Rédiger un message sans lancer Outlook, R00040 Interdire la modification des comptes de messagerie et de carnet d'adresses, R15000 [VBA] TUTORIEL OULOOK VBA, R15450 [VBA] Supprimer automatiquement les éléments de + de x jours dans un dossier., R08210 Message d'erreur : Le client de courrier électronique par défaut n'est pas correctement installé, R04020 Insérer un élément d'Outlook dans un message, R09130 Rechercher dans le carnet d'adresses, R11020 Restaurer les paramètres et fichiers .pst d'Outlook 2002 (Windows XP seulement), R99130 Un tapis de souris...

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 [/\]