Carnet d'adresses Outlook

[MalabarBulgom]

Bonjour a tous,

Je suis confronté à un souci pour lequel j'ai beau eplucher les forums je ne trouve pas de solution. J'aimerai recuperer dans Excel les infos concernant un contact dans le carnet d'adresse d'Outlook (Ex : adresse, n° de tel, ...). Jusqu'ici, j'arrive a lister tous les contacts qui m'interessent mais je n'obtiens que les noms. Alors si par hasard, quelqu'un avait ne serait-ce qu'une petite piste pour me permettre d'avancer cela me depannerait.

En attendant , je vous souhaite a tous une bonne soiree.

A+

Malabar

 

[pat1545.]

Salut,

pose la question sur un forum outlook peut etre ici avec un prg comme outlook express tu y seras direct:

news:microsoft.public.fr.outlook

JL sera là pour te répondre surement


Patrick

 

[MichelXld]

bonsoir Malabar , bonsoir Patrick

cet exemple permet de boucler sur tous les items du dossier des contacts Outlook , pour afficher les noms et les numeros de telephone


Sub numeroTelephone_contactsOutlook()
'necessite d'activer la reference Microsoft Outlook xx.x object Library
Dim olApp As New Outlook.Application
Dim Cible As Outlook.ContactItem
Dim dossierContacts As Outlook.MAPIFolder
Dim Resultat As String

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

For Each Cible In dossierContacts.Items
Resultat = Resultat & Cible.HomeTelephoneNumber & vbTab & Cible.LastNameAndFirstName & vbLf
Next

MsgBox Resultat, , 'Liste des numeros de telephone Outlook-Contacts'
End Sub


d'autres éléments possible (liste non exhaustive )

Cible.Anniversary
Cible.BusinessAddress
Cible.BusinessTelephoneNumber
Cible.CompanyName
Cible.Email1Address
Cible.FirstName
Cible.HomeAddressCity
Cible..HomeAddress
Cible.HomeAddressCountry
Cible.HomeAddressPostalCode
Cible.HomeAddressStreet
Cible.HomeFaxNumber
Cible.HomeTelephoneNumber
Cible.LastName
Cible.MobileTelephoneNumber
Cible.PersonalHomePage


bonne soiree
MichelXld

 

[malabarbulgom]

Un grand merci à tous et plus specialement a MichelXLD dont la solution va bien au dela de ce que j'attendais trouver.

Bonne journee a tous

Malabar

 

[pat1545.]

Merci Michel, je teste ça demain au boulot


Patrick