Enregistrer des pièces jointes et les renommer en extrayant la date et l'heure

Bonjour à tou-te-s,

Je reçois des prévisions météo par e-mails, en pièce jointe au format pdf, deux fois par jours. Je souhaite automatiser l'archivage, en les renommant au format date+heure, par exemple 20170906-1130 pour un mail reçu le 6 septembre 2017 à 11h30.

J'utilise actuellement un code trouvé sur ce forum :

Code:

---

1 2 3 4 5 6 7 8

Sub SaveAttachement(Item As Outlook.MailItem) Set attachs = Item.Attachments   For Each attach In attachs file = attach.FileName attach.SaveAsFile "C:\mails\météo\" & file Next End Sub

---

Le problème, c'est que comme mes pièces jointes ont toutes le même nom à réception du mail, je me retrouve avec un seul fichier, le plus récent. Je souhaite donc extraire la date et l'heure du mail pour renommer le fichier. Savez-vous comment faire ?
Je précise qu'il n'y a qu'un seul fichier pdf dans chaque e-mail, donc peut-être que je n'ai pas besoin de la boucle For Each ?

Merci d'avance,
Ilweth

Bonjour,

Si tu gères ton déclenchement par une règle, ce code suffira

Code:

---

1 2 3 4 5 6 7 8

Sub SaveAttachement(Item As Outlook.MailItem) Set attachs = Item.Attachments   For Each attach In attachs file = attach.FileName attach.SaveAsFile "C:\mails\météo\" & Item.senton & "-" & file Next End Sub

---

Merci de ta réponse, malheureusement, "item.SentOn" renvoit une date au format jj/mm/aaaa hh:mm:ss, ce qui n'est pas compatible avec le nom d'un fichier, il ne se passe donc rien quand je lance le script.

Je pensais essayer de passer par une variable, dans laquelle je mets la donnée date+heure, puis la convertir au format voulu (aaaammjj-hhmm) avant de renommer le fichier, mais je n'ai pas encore trouvé comment faire.

bonjour,
effectivement

Code:

---

1 2 3 4 5 6 7 8 9

Sub SaveAttachement(Item As Outlook.MailItem) Set attachs = Item.Attachments   For Each attach In attachs file = attach.FileName attach.SaveAsFile "C:\mails\météo\" & format(Item.senton, "YYYYMMDD-hhnn") & "-" & file Next End Sub

---

C'est parfait, merci beaucoup ! :D

Bonjour,

J'ai mis en place votre script et tout fonctionne parfaitement.
Cependant, je reçois parfois des mails avec un logo dans la signature du mail, en plus de la pièce jointe en PDF et dans ces cas-là le script enregistre le PDF mais aussi l'image.
Est-il possible de spécifier qu'on ne veut enregistrer que les formats PDF ?
Merci d'avance pour votre aide.

Bonjour,

J'utilise une condition "if" pour un autre système de tri, mais en le mettant de la façon suivante, ça devrait fonctionner :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub SaveAttachement(Item As Outlook.MailItem) Set attachs = Item.Attachments   For Each attach In attachs file = attach.FileName If Item.Subject Like "*.pdf" Then attach.SaveAsFile "C:\mails\météo\" & Format(Item.SentOn, "YYYYMMDD-hhnn") & ".pdf" End If Next End Sub

---

J'ai ajouté le ".pdf" à la fin car le script précédent faisait disparaitre le format de la pièce jointe lors de l'enregistrement. J'ai égalemnt supprimé la partie < & "-" & file > car je ne veux pas réutiliser le nom de la pièce jointe, mais vous pouvez le rajouter/le laisser si vous voulez.

Citation:

---

Envoyé par Ilweth

Bonjour,

J'utilise une condition "if" pour un autre système de tri, mais en le mettant de la façon suivante, ça devrait fonctionner :


J'ai ajouté le ".pdf" à la fin car le script précédent faisait disparaitre le format de la pièce jointe lors de l'enregistrement. J'ai égalemnt supprimé la partie < & "-" & file > car je ne veux pas réutiliser le nom de la pièce jointe, mais vous pouvez le rajouter/le laisser si vous voulez.

---

Bonjour je pense que c'est plutôt comme cela car tu testais le sujet de l'Email et pas le nom de la PJ. Attention aussi à la CASSE pdf<>PDF

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'A mettre en HAUT du module Option Compare Text   Sub SaveAttachement(Item As Outlook.MailItem) Set attachs = Item.Attachments   For Each attach In attachs file = attach.FileName If file Like "*.pdf" Then attach.SaveAsFile "C:\mails\météo\" & Format(Item.SentOn, "YYYYMMDD-hhnn") & ".pdf" End If Next End Sub

---

on peut aussi comparer en mettant en MAJUSCULE le tout

Code:

---

1 2	file = UCASE(attach.FileName) If file Like "*.PDF" Then

---

Voir aussi instr, strcomp et FSO.GetExtensionName

Effectivement, j'utilise "item.subject" au lieu de "file" car dans mon cas, je différencie par le sujet du mail. J'ai mis du temps à voir la différence entre les deux, bien joué !
(ça m'apprendra à faire des copier-coller sans relire ^^ )

Merci à tous les deux, cela fonctionne et répond parfaitement à mon attente.

Bonne fin de journée

Bonjour,
Vous avez été tellement efficaces la dernière fois que je me permets de revenir vers vous.
Tout fonctionne bien s'il n'y a qu'une pièce jointe en pdf avec le mail, par contre s'il y en a plusieurs, cela ne prend que la première.

Pouvez-vous me dire ce que je dois rajouter au script pour que cela prenne bien en compte la totalité des PJ ?

Merci d'avance

Bonjour,

Ce qui est important c'est le nom donné à la PJ

Effectivement dans le dernier code le nom est figé, soit tu utilises le nom d'origine de la pj soit tu incrémentes ce nom avec un index
remplace

Code:

---

attach.SaveAsFile "C:\mails\météo\" & Format(Item.SentOn, "YYYYMMDD-hhnn") & ".pdf"

---

par

Code:

---

attach.SaveAsFile "C:\mails\météo\" & file

---

tu peux aussi regarder ici
https://www.developpez.net/forums/bl...yperlien-mail/


cette partie là évite les doublons

Code:

---

1 2 3 4 5 6 7 8 9 10

n = 1 MemPath = remplaceCaracteresInterdit(Expediteur & "¤" & pj.fileName) PathNomExport = MemPath If Export Then While Dir(repertoire & PathNomExport) <> "" 'MsgBox "Le fichier " & vbCr & PathNomExport & vbCr & "existe déjà", vbInformation PathNomExport = "(" & n & ")" & MemPath n = n + 1 Wend pj.SaveAsFile repertoire & PathNomExport

---

Bonsoir,
C'est parfait.
Merci
Bonne fin de journée

Bonjour. Jai utiliser le code situé au dessus qui fonctionne très bien. Mais j'ai un soucis tt mes pièces jointes on les même nom. Et j'ai essayé de mettre la date d'envoi et de réception dans le nom du fichier mais les mails envoyés son envoyé à la même seconde près donc mes fichiers sauvegardés sont écrasé. J'aimerai que le nom de fichier soit différent à chaque enregistrement.merci de votre aide.

je t'invite à consulter ce code

https://www.developpez.net/forums/bl...yperlien-mail/

en particulier la partie

Code:

---

1 2 3 4 5 6 7 8 9 10

n = 1 MemPath = remplaceCaracteresInterdit(PrefixePj & "¤" & pj.FileName) PathNomExport = MemPath If Export Then While Dir(repertoire & PathNomExport) <> "" 'MsgBox "Le fichier " & vbCr & PathNomExport & vbCr & "existe déjà", vbInformation PathNomExport = "(" & n & ")" & MemPath n = n + 1 Wend pj.SaveAsFile repertoire & PathNomExport

---