Dimanche 17 Décembre 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 : 3
Membres en ligne : 0

 callaghi 2 semaines
 joscopp 4 semaines
 JièL 4 semaines
 julbast 4 semaines
 pirobert 5 semaines
 EMERGENCY 7 semaines
 zorro71 28 semaines
 Alphator 47 semaines
 ande 52 semaines
 Oliv 54 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:1 466
En ligne :3
Max. en ligne:312
Max. / jour:66 529
Total hier:4 359
Total ce mois:78 557
Total visites:18 850 192
Moyenne/jour:5 676

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 9429 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
R08140 Interface non enregistrée ou interface non prise en charge, R15500 [VBA] Envoyer un fichier OFFICE par mail, R15350 [VBA] Choix du compte selon les destinataires, R10040 Sauvegardez ses règles de gestion des messages, R07120 Interdire l'accès au paramétrage des comptes de messagerie et de carnet d'adresses, R08125 Impossible d'envoyer un message (mon FAI est Wanadoo/Orange), R09140 Masquer les destinataires les uns des autres, R12030 Créer un rendez-vous rapidement, R09190 Trier les destinataires dans le carnet d'adresses (version 2002/2003), R01160 Configurer un compte « POP before SMTP » (exemple : Laposte.net), R15210 [VBA] Déplacer le contenu d'un dossier vers un pst., R01190 Personnaliser la page d’accueil « Outlook Aujourd’hui », R99150 Solution pour madame, R15040 [VBA] Parcourir tous les dossiers et sous-dossiers., R01020 Changer rapidement la taille des caractères

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