Mardi 16 Octobre 2018  
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 : 5
Membres en ligne : 0

 EMERGENCY 15 semaines
 beaulieu 27 semaines
 callaghi 31 semaines
 Charlie76 36 semaines
 joscopp 47 semaines
 JièL 47 semaines
 julbast 48 semaines
 pirobert 48 semaines
 zorro71 72 semaines
 Alphator 90 semaines

Non activés :0

Nombre de visiteurs
depuis le : 12/11/2008

Aujourd'hui:12 231
En ligne :5
Max. en ligne:312
Max. / jour:66 529
Total hier:4 044
Total ce mois:71 250
Total visites:20 495 678
Moyenne/jour:5 656

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 9863 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
R13030 Créer une tâche, R01050 Choisir le format d'envoi des messages, R07110 Ajouter un expéditeur de confiance, R15030 [VBA] Supprimer le message SECURITY WARNING d'activation des Macros., R02060 Vérifier l'accès au serveur SMTP, R14030 Ajouter / Supprimer un dossier au favoris, R12080 Publier son planning sur Internet / Intranet ou un réseau personnel, R07100 Exporter / Importer une liste d'expéditeurs indésirables, R04060 Supprimer les pièces jointes d'un message, R20020 Configurer un compte IMAP pour Outlook 2002/2003, R15260 [VBA] Copier le corps et les en-têtes vers le presse-papier, R99160 Le mot de passe, R07070 Activer / Paramétrer le filtre anti spam d'Outlook 2003/2007, R04080 Changer le dossier d'enregistrement par défaut des pièces jointes, R12120 Synchroniser Google Calendar avec Outlook 2010

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