Mardi 27 Juin 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 : 1
Membres en ligne : 0

 EMERGENCY 1 semaine
 zorro71 4 semaines
 callaghi 13 semaines
 Alphator 22 semaines
 ande 28 semaines
 Oliv 30 semaines
 cubitus 33 semaines
 JièL 38 semaines
 angel 43 semaines
 Quartzkyte 52 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:5 629
En ligne :1
Max. en ligne:312
Max. / jour:66 529
Total hier:6 378
Total ce mois:178 625
Total visites:17 776 823
Moyenne/jour:5 645

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 9125 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
R08210 Message d'erreur : Le client de courrier électronique par défaut n'est pas correctement installé, R01190 Personnaliser la page d’accueil « Outlook Aujourd’hui », R07050 Autoriser / Interdire l'affichage des images et/ou l'activation du HTML, R17000 But d'un formulaire, R04050 Modifier une pièce jointe DANS un message, R02030 Définir des groupes de comptes de messagerie, R10040 Sauvegardez ses règles de gestion des messages, R08040 Outlook ne mémorise pas le mot de passe des comptes, R04070 Rendre visible le dossier temporaire des pièces jointes, R03050 Définir le papier à lettres par défaut, R09170 Choisir le format d'affichage des n° de tél (empêcher les parenthèses), R08110 Ouvrir un autre PST, R09210 Créer une liste de distribution, R00070 Consultez (et modifiez) VOS données de VOTRE Outlook sur CE site, R16060 Importer les contacts de Windows Live Mail dans Outlook

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