export vers outlook

[ferid]

je possède une tres longue ( 52 pages )liste de noms avec adresses, téléphone et mail et je voudrais savoir si je peux les exporter dans les contacts de outlook.

Merci d'avance pour le tuyau

 

[MichelXld]

bonsoir

ci joint un exemple par macro pour ajouter un contact dans Outlook

Sub ajouterContactOutlook()
'necessite d'activer la reference Microsoft Outlook xx.x Object Library
Dim objOutlook As New Outlook.Application
Dim objContact As contactItem

Set objContact = objOutlook.createItem(olContactItem)
With objContact
.email1Address = 'mimi@provider.com'
.firstName = 'michel'
.lastName = 'xld'
.homeTelephoneNumber = '00 00 00 00 00'
.homeAddressCity = 'XLDcity'
.Save
End With

objOutlook.Quit
Set objOutlook = Nothing
End Sub



bonne soiree
MichelXld

Message édité par: michelxld, à: 04/06/2006 21:49

 

[ferid]

Merci pour le tuyau , étant débutant, je suis sur d'y passer la journée, mais c'est ainsi que l'on apprend.Et grace aussi à tous les conseils de cette grande communauté de 'forumistes'.

A plus tard surement, pour d'autre question aussi naives.

Ferid