Importer d'outlook [Résolu]

Messages postés
50
Date d'inscription
samedi 25 septembre 2004
Dernière intervention
14 juillet 2008
- - Dernière réponse : kojak64
Messages postés
6
Date d'inscription
mardi 25 juillet 2006
Dernière intervention
25 juillet 2006
- 25 juil. 2006 à 09:23
Bonjour,
j'ai encore une question :
J'aimerai bien pouvoir importer d'outlook (2003 et autres versions si possible) les noms de contact, e-mail et date d'anniversaire respectifs!!! Ca m'a l'air très compliqué donc, je fais appel à vous tous...
Merci pour votre aide... Un de ces quatre, il va falloir que je poste un source moi ici !
Afficher la suite 

10 réponses

Meilleure réponse
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
3
Merci
bonsoir

tu peux tester

Sub contactsOutlook()
Dim olApp As New Outlook.Application
Dim Cible As Outlook.ContactItem
Dim dossierContacts As Outlook.MAPIFolder


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


For Each Cible In dossierContacts.Items
Debug.Print Cible.Anniversary & " " _
& Cible.LastNameAndFirstName & vbLf
Next


End Sub

cordialement
michel

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
3
Merci
Oouppss..toutes mes excuses , j'ai fait une petite erreur lors du copier/coller ...

la nouvelle version :

Sub contactsOutlook()
Dim olApp As New Outlook.Application
Dim Cible As Outlook.ContactItem
Dim dossierContacts As Outlook.MAPIFolder


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


For Each Cible In dossierContacts.Items
Debug.Print Cible.Anniversary & " " _
& Cible.LastNameAndFirstName
Next


End Sub

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
3
Merci
bonjour


il faut que tu actives la reference Outlook


menu Projet
References
coches la ligne Microsoft Outlook xx.x Object Library
(xx.x depend de ta version d'office)
clique sur OK pour valider



bonne journée
michel

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
3
Merci
bonjour

cet exemple permet d'ajouter un nouveau contact dans la liste


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 = "[mailto:michelxld@leMail.com michelxld@leMail.com]"
.firstName = "michel"
.lastName = "leNom"
.homeTelephoneNumber = "00 00 00 00 00"
.homeAddressCity = "laVille"
.Save
End With
End Sub

et un exemple pour verifier s'il existe deja dans la liste ( pour ne pas avoir de doublons )

Sub controleLastName_contactsOutlook()
Dim olApp As New Outlook.Application
Dim Cible As Outlook.contactItem
Dim dossierContacts As Outlook.MAPIFolder


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


Set Cible dossierContacts.Items.Find("[LastName] ""leNom""")
If Not Cible Is Nothing Then
MsgBox "Existe"
Else
MsgBox "N'existe pas"
End If
End Sub

bon week end
michel

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Messages postés
50
Date d'inscription
samedi 25 septembre 2004
Dernière intervention
14 juillet 2008
0
Merci
bonsoir,
Désolé Michelxdl, mais cette source ne fonctionne malheureusement... J'utilsise VB5.0, et lors de son exécution, il me signale ceci :

Dim olApp As New Outlook.Application ==> "Erreur de compilation ; type défini par l'utilisateur non défini"

Et je suppose que ca va être le même problème pour d'autre ligne...

Cependant, n'éxiste-t-il pas un OCX (ou autre) pour effectuer ce genre de manoeuvre??

Merci beaucoup...
Messages postés
85
Date d'inscription
jeudi 17 novembre 2005
Dernière intervention
15 février 2006
0
Merci
Bonjour j'ai suivi le sujet car j'avais le même problème cependant, j'ai testé le code de michelxld. J'ai un petit souci lors de l'exécution: il y a systématiquement un de mes contacts qui n'est pas parcouru mais je ne sais pas pourquoi...
Pourrai-t-on m'éclairer?
Messages postés
50
Date d'inscription
samedi 25 septembre 2004
Dernière intervention
14 juillet 2008
0
Merci
Michelxld, un tout grand merci! Cela fonctionne la perfection!
Maintenant, est-ce que je dois joindre un fichier particulier à mon programme??
Egalement, cette manoeuvre est-elle identique pour Outlook Express et Outlook 2000??
je n'aique Outlook 2003 sur mon pc, et donc la référence à Outlook 2003 uniquement!
Peut-elle se génrée automatiquement??

Encore merci et au plaisir...
Messages postés
50
Date d'inscription
samedi 25 septembre 2004
Dernière intervention
14 juillet 2008
0
Merci
Michel XLD, bonjour...

Maintenant, que l'importation fonctionne à merveille, je voudrais pour voir faire le contraire! C'est-à-fire, exporter une liste vers Outlook (2003 toujours)... Est-ce possible????????

A bientôt et merci...
Messages postés
50
Date d'inscription
samedi 25 septembre 2004
Dernière intervention
14 juillet 2008
0
Merci
Parfait... Merci bcp Michel XLD... Comme à l'accoutumée, celà fonctionne parfaitement!
Bon WE...
Messages postés
6
Date d'inscription
mardi 25 juillet 2006
Dernière intervention
25 juillet 2006
0
Merci
Bonjour à tous,
Pour rep a sismouss d'abord, le probleme vient surement des Listes de difusion qui sont dans ta liste de contact. C'est un cas que jamais aucun code ne prend en compte, j'ai bataillé dessus un moment.

J'aurais une question moi aussi pour aller plus loin. Je voudrais importer un contact dans outlook mais dans un dossier de contact bien pécifique et pas dans le DefaultFolder de Outlook... Si quelqu'un avait la solution... merci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.