Carnet d'adresses Outlook

MalabarBulgom · 29 Mars 2005

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. · 29 Mars 2005

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 · 29 Mars 2005

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 · 30 Mars 2005

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. · 30 Mars 2005

Merci Michel, je teste ça demain au boulot

Patrick

Carnet d'adresses Outlook

MalabarBulgom

Guest

pat1545.

XLDnaute Accro

MichelXld

XLDnaute Barbatruc

malabarbulgom

Guest

pat1545.

XLDnaute Accro

Discussions similaires