Déplacer Email d'un dossier de la boite de reception vers la boite d'archive [Résolu]

Messages postés
28
Date d'inscription
mercredi 1 février 2012
Statut
Membre
Dernière intervention
17 avril 2013
- - Dernière réponse : cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
- 18 avril 2013 à 18:39
Bonjour,

Je cherche une façon de déplacer des mails qui se trouvent dans un dossier de ma boite de réception.

J'ai trouvé une façon de lancer mes fichiers qui se trouvent dans les messages envoyés vers mes messages archives

j'ai trouvé une façon de lancer mes fichiers qui se trouvent dans la boite de réception vers mes dossiers archives

MAIS je n'arrive pas à envoyer mes fichiers qui se trouvent dans un dossier de ma boite de réception vers mes dossiers archives

> Sub Deplacer_Message()
>
> Dim myOlApp As Outlook.Application
> Dim myNameSpace As Outlook.NameSpace
> Dim myFolder As Outlook.MAPIFolder
> Dim myFolderArchive As Outlook.MAPIFolder
> Dim myItem As Outlook.MailItem
>
> Set myOlApp = CreateObject("Outlook.Application")
> Set myNameSpace = myOlApp.GetNamespace("MAPI")
> 'Répertoire "Inbox"
> Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
> 'Répertoire "Archive"
> Set myFolderArchive = myFolder.Parent.Folders("Archive")
>
> 'Déplacer le 1er message du répertoire "Inbox" vers le répertoire "Archive"
> For Each myItem In myFolder.Items
> myItem.Move myFolderArchive
> Exit For
> Next myItem
>
> End Sub



Merci pour votre aide

bien à vous

Anthooooony
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
15
3
Merci
Bonjour,

Si tu utilises ce code dans ta macro, tu retrouveras les noms des sous-répertoires
 Dim Rep As Folder
 For Each Rep In myFolder.Folders
    MsgBox Rep.Name
 Next


Donc, comme tu peux voir il y a possibilité d'utiliser Folder.Folders
Et tu pourrais utiliser quelque chose comme
Rep = myFolder.Folders("Le nom du répertoire")


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 200 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_MPi