Bonjour,

sur Outlouk, je souhaiterai copier le contenu de "contacts suggérés" vers "contacts".
j'ai fais un vbs qui fonctionne à moitié.

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
'################################################
Option Explicit
 
Dim myOutlook
Dim myNameSpace
Dim mySuggestedContactsFolder
Dim myContactsFolder
Dim myNewFolder
 
set myOutlook = CreateObject("Outlook.Application")
Set myNameSpace = myOutlook.GetNamespace("MAPI")
Set mySuggestedContactsFolder = myNameSpace.GetDefaultFolder(30) '30 correspond aux contacts sugérés
Set myContactsFolder = myNameSpace.GetDefaultFolder(10) '10 correspond à Contacts
Set myNewFolder = mySuggestedContactsFolder.CopyTo(myContactsFolder)
Wscript.Echo " SuggestedContacts copied to Contacts"
Wscript.Quit
'###############################################
la fonction CopyTo en gras ( voir ci-dessus) m'a uniquement recréer une copie du dossier "contacts suggérés".

merci de me fournir la fonction qui permet de copier ( ou déplacer) le contenu de Contacts suggérés sur Contacts.

Merci bcp et bonne soirée.