Déplacement d'e-mails sur condition avec création de dossier automatisé
Bonjour à tous,
Je travaille sous office 2016 et il s'agit d'une configuration Exchange qui contient une archive "Enterprise Vault".
Comme expliqué dans l'intitulé, je cherche une moyen de déplacer automatiquement des e-mails dans les dossiers de cette archive (Enterprise Vault étant déjà une archive dont le dossier se trouve dans l'arborescence du mail en tant que "Archive 10Y" - voir plus bas, mais qui ne peut pas être retrouvée dans les archives standards d'un archivage automatique).
La macro devrait effectuer les choses suivantes:
1. Rechercher les éléments antérieurs à 3 mois dans les dossiers source sous-mentionnés
2. Déplacer ces éléments dans les dossiers cible sous-mentionnés qui porteront la même dénomination
3. Si le dossier cible n'existe pas, celui-ci doit être créé en reprenant le nom du dossier source
La source des mails à transférer:
\\nom.prénom@societe.com\Boîte de réception\Interne\nom_prénom
ou
\\nom.prénom@societe.com\Boîte de réception\Externe\nom_prénom
Cible des mails à transférer:
\\nom.prénom@societe.com\Archive 10Y\Inbox\Interne\nom_prénom
ou
\\nom.prénom@societe.com\Archive 10Y\Inbox\Externe\nom_prénom
Donc en résumé:
Si le mail est antérieur à trois mois - Alors lire son arborescence
Si le mail source est dans \\nom.prénom@societe.com\Boîte de réception\Interne\nom_prénom - Alors retrouver le dossier cible dans \\nom.prénom@societe.com\Archive 10Y\Inbox\Interne\
Si le dossier cible existe - Alors coller le mail dedans
Si le dossier cible n'existe pas - Alors créer le dossier cible sur la base du nom du dossier source et coller le mail dans le dossier créé
Et ceci de même pour le dossier \\nom.prénom@societe.com\Boîte de réception\Externe\
Notre service informatique dit que les mails doivent être déplacés manuellement, ce qui m'embête un peu vu le nombre...
Malheureusement je ne dispose pas des compétences nécessaires en vba pour créer cette macro et me demandais si quelqu'un pouvait trouver quelques minutes pour m'aider (en espérant qu'il s'agisse de quelques minutes).
Ou peut-être que quelqu'un peut me proposer une méthode plus simple pour le transfert de ces e-mails?
En tous les cas déjà un grand merci d'avance pour vos réponses.
Hank
