Discussion :

[reptedoz]

bonjour,

je vous explique mon problème :

je viens d'importer une liste de plus de 1000 contacts dans outlook 2003 ainsi que plus de 3000 entrées journals, tous cela depuis une base de données access. Je souhait donc utiliser ma liste de contact outlook comme nouvel base de données avec un suivi des activités par contact.

Mon problème est que je n'arrive pas a lier les entrées journal aux contacts avec l'importation. Il n'y a aucune possibilité avec outlook de définir à quel contact il faut associer l'élément lors de son importation. Je cherche une solution plus rapide que de prendre les contact un par un pour leur associer les éléments journal correspondant. Pour l'instant le seul lien qu'il existe entre les fiches contacts avec les fiches entrées journal, c'est qu'ils ont le même nom de société.

Je me demandais donc s'il n'y avait pas possibilité, par l'intermédiaire d'un macro, d'associer les entrées journal aux contacts qui ont le même nom de société. Ou alors un macro qui permettrait remplir le champs "contacts" par la valeur du champs "société" a partir d'une liste d'entrées journal.

Si quelqu'un a une idée, je suis preneur !

Merci d'avance de l'intérêt que vous porté a ma question.

bonne journée a vous

[Laurent CUENET]

Bonjour,

ce code fonctionne si tu as seulement
- des fiches contacts dans ton dossier contact et pas de liste de distribution.
- avec les dossiers par défaut de contact et de journal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub lien()
 
Set myNameSpace = Application.GetNamespace("MAPI")
Set JournalFolder = myNameSpace.GetDefaultFolder(olFolderJournal)
Set ContactFolder = myNameSpace.GetDefaultFolder(olFolderContact)
 
Set JournalItems = JournalFolder.items
Set ContactItems = ContactFolder.items
 
JournalItems.SetColumns ("Companies")
ContactItems.SetColumns ("Subject, CompanyName") 
 
For Each Jitm in JournalItems
 
Filtre = "[CompanyName]<>'" & Jitm.Companies & "'"
Set ritms = ContactItems.Restrict(Filtre)
For Each Citm In ritms
 
Jitm.Contact = Citm.subject
Jitm.Save
 
Next
Next
 
End Sub

Si tu as un problème avec le setcolumns tu peux la remplacer avec la méthode restrict.

A bientôt,

[reptedoz]

bonjour,

merci beaucoup d'avoir pris le soin de répondre a ma question, cela veux dejà dir que ce n'est pas impossible...
Je viens d'essayer mais il m'indique qu'une ou plusieurs valeurs de paramètre ne sont pas valides (erreur 440) . Je ne m'y connais pas beaucoup en prog macro, vois-tu d'où ces erreurs pourraient venir ?

En tout cas merci encore de ton attention !

a biento

[Laurent CUENET]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub lien()
 
Set myNameSpace = Application.GetNamespace("MAPI")
Set JournalFolder = myNameSpace.GetDefaultFolder(olFolderJournal)
Set ContactFolder = myNameSpace.GetDefaultFolder(olFolderContact)
 
Set JournalItems = JournalFolder.items
Set ContactItems = ContactFolder.items
 
For Each Jitm in JournalItems
 
Filtre = "[CompanyName]<>'" & Jitm.Companies & "'"
Set ritms = ContactItems.Restrict(Filtre)
For Each Citm In ritms
 
Jitm.Contact = Citm.subject
Jitm.Save
 
Next
Next
 
End Sub

Si tu as des numéro de ligne merci de les indiquer

A bientôt,

[reptedoz]

bonjour Laurent,

Merci pour ta réponse rapide !
Je viens d'essayer ton nouveau code mais lorsqu'il arrive sur les lignes
"Set JournalItems = JournalFolder.Items
Set ContactItems = ContactFolder.Items"
il fait un message d'erreur signalant des valeur non valide.

Voila la seul info que je peux te donner.

Merci pour ton aide ! a bientôt

[Laurent CUENET]

Bonjour,

La je ne vois pas ???