Sauvegarde automatique des PJ dans un dossier par Outlook.

Ce forum donne des infos sur différents problèmes liés aux install, aux bug(s), aux logiciels, etc... N'hésitez pas à vous inscrire pour poser des questions liées aux différents sujets traités si nécessaire.
Verrouillé
Avatar du membre
claudius
Messages : 114
Enregistré le : jeu. 17 nov. 2011 21:55

Sauvegarde automatique des PJ dans un dossier par Outlook.

Message par claudius » ven. 21 août 2015 17:41

Il faut créer un module en VBA avec l'opération à effectuer.

Pour sauvegarder les pièces jointes d'un mail en automatique à l'arriver de celui-ci, il faut créer la règle suivante:

Code : Tout sélectionner

Sub SaveAttachement(Item As Outlook.MailItem)
        MsgBox "Pièces du message " & Item.Subject & " sauvegardés"    '<=== Boîte de dialogue à personaliser ou à supprimer
        Set attachs = Item.Attachments
 
        For Each attach In attachs
            file = attach.FileName
            attach.SaveAsFile "C:\" & file   '<=== c:\ correspond au dossier dans lequel vous voulez sauvegarder les pièces jointes
        Next
End Sub
Cette règle s'applique dans Outlook => Outlook Outils => Macro => Visual Basic Editor (ALT+F11)

Ensuite pour que ce script soit actif il faut créer une règle:
Dans Outlook Outils => règles et alertes... => nouvelle règle... => Démarrer à partir d'une règle vide => Vérifier les messages à leur arrivée => suivant => qui contient une pièce jointe => exécuter un script => choisir le scipt SaveAttachement

Attention il s'agit d'une règle client qui ne s'effectue que lorsque Outlook est ouvert :!:
L’homme par son égoïsme trop peu clairvoyant pour ses propres intérêts, par son penchant à jouir de tout ce qui est à sa disposition, en un mot par son insouciance pour l’avenir et pour ses semblables, semble travailler à l’anéantissement de ses moyens de conservation et à la destruction même de sa propre espèce.

Verrouillé