1 pièce(s) jointe(s)
Macro sauvegarde automatique de Pièce jointe - comment changé lla date "Modifié le"
Bonjour,
J'ai réussi à sauvegarder toutes les pièces jointes que je recois dans ma boite courriel grâce à une macro et à une règle (défini plus bas). Cependant, je voudrais que la date "modifié le" soit la date de la sauvegarde (fait par la marcro, la date du jour de l'ordi)
Pour bien comprendre voici une image des 3 fichiers qui ont été enregistrer automatiquement par la macro mais je voudrais que ce soit la date du jour (pour l'exemple now = 2017-08-07):
Pièce jointe 301142
Est-ce que quelqu’un peut m'aider je suis pas très bonne en programmation MACRO. Merci!
Voici le code de ma macro:
Code:
1 2 3 4 5 6 7 8 9
| Sub SaveFS(Item As Outlook.MailItem)
Set attachs = Item.Attachments
For Each attach In attachs
file = attach.FileName
attach.SaveAsFile "D:\Test_Save_FS\" & file
Next
End Sub |
Voici la règle OUTLOOK utilisé:
Dans Outllok 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