Bonjour,
sur Outlouk, je souhaiterai copier le contenu de "contacts suggérés" vers "contacts".
j'ai fais un vbs qui fonctionne à moitié.
la fonction CopyTo
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 '###############################################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.
Partager