Bonjour,

Je ne m'y connais pas du tout en macro et c'est une première pour moi.

Je désire dans Outlook supprimer le contenu d'un carnet d'adresse dans un public folder pour ensuite y copier des nouveaux contacts.

Ma 1ere étape est donc de vider le carnet d'adresse dans le dossier publique.

J'ai trouvé cette macro mais j'ai peur d'y faire une erreur, serait il possible de me confirmer son fonctionnement ou mon erreur.

Merci à vous,

1) Je ne comprends déjas pas le Next et Next F à la fin.
2) Mon dossier est ici \\Dossiers publics - test@test.com\Tous les dossiers publics\Dossiers Publics\mescontacts
dans contacts 1 et contacts 2 que faut il mettre ?
3) Que veut dire Folders(arrFolder(F) ?



http://www.slipstick.com/developer/c...public-folder/


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim arrFolder As Variant
 
Set olns = Application.GetNamespace("MAPI")
 
arrFolder = Array("Contacts1", "Contacts2")
 
For F = LBound(arrFolder) To UBound(arrFolder)
 
Set delContents = olns.Folders("Public Folders - alias@domain.com").Folders("All Public folders").Folders("TestDelete").Folders(arrFolder(F))
For i = delContents.Items.Count To 1 Step -1
    delContents.Items(i).Delete
Next
 
Next F