Bonjour à tous,
Je débute en VBA sur outlook et j'aurais besoin de votre aide pour contourner un problème. je cherche à concevoir une macro qui transfert les mails de tous les fichiers de ma boite de réception vers la boite de réception (RAZ du tri).
Le problème c'est que, parfois, tous les mails ne sont pas déplacer. J'avoue ne pas en comprendre la cause. A savoir, avant j'avais utilisé une méthode de contage suivi d'une boucle jusqu'à la valeur obtenue via contage. Alors j'avais des message d'erreur liés à la taillde de la matrice.
Voici le code :
Je vous remercie pour toute l'aide que vous saurez m'apporter.
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 Sub RAZ() Dim myNameSpace As Outlook.NameSpace Dim myFolder As Outlook.Folder Set myNameSpace = Application.GetNamespace("MAPI") Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) For Each Folder In myFolder.Folders nombremail = Folder.Items.Count MsgBox nombremail For Each Item In Folder.Items Item.Move (myFolder) Next Next End Sub
Llebucheur
Bon ben en fait mon code ne fonctionne plus du tout...
J'ai à chaque fois une incompatibilité de type.
Partager