Verifier Adresse Email

[@Bobby]

Bonjour le forum

J'ai developpé un petit tools pour des utilisateurs au travail, ce tools envoie des mails a partir d'excel via outlook 2003

Ma question est: Y a t il un moyen de vérifier si l'adresse utilisé dans excel est bien connue dans le global address list de outlook?

Merci d'avance

Message édité par: @Bobby, à: 09/01/2006 12:23

 

[MichelXld]

bonjour

cet exemple permet de verifier si une adresse email existe dans la liste des conctats Outlook

Sub controleAdresseMail_contactsOutlook()
Dim olApp As New Outlook.Application
Dim Cible As Outlook.contactItem
Dim dossierContacts As Outlook.MAPIFolder
Dim leMail As String

leMail = 'nom.Prenom@mail.fr'

Set olApp = New Outlook.Application
Set dossierContacts = olApp.GetNamespace('MAPI').GetDefaultFolder(olFolderContacts)

Set Cible = dossierContacts.Items.Find('[Email1Address] = '' & leMail & ''')
If Not Cible Is Nothing Then
MsgBox 'Existe'
Else
MsgBox 'N'existe pas'
End If
End Sub


bonne journée
MichelXld