VBA Outlook création dossier

Bonjour,

Je viens de créer un script/macro sur Outlook me permettant d'enregistrer toutes les pj reçus dans un mail en particulier dans un dossier local (mail quotidien). Maintenant, je cherche à pouvoir incorporer dans ce script un moyen d'enregistrer ces pj dans un nouveau dossier à chaque fois. Chaque nouveau dossier aurait pour nom la date de réception du mail. Par exemple, aujourd'hui 11.9.2021, je reçois le mail avec les pj, qui vont s'enregistrer sur le disque local dans un nouveau dossier "11.9.2021" créé automatiquement.

Voici mon code actuel:

Public Sub savePJ(itm As Outlook.MailItem)

Dim objAtt As Outlook.Attachment
Dim saveFolder As String

saveFolder = "Z:\Personnel\test outlook VBA\"

For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & objAtt.DisplayName
Set objAtt = Nothing

Next

End Sub

Je ne sais pas si j'ai été assez clair,

Merci bcp

bonjour,

une proposition

Public Sub savePJ(itm as Outlook.MailItem)

   Dim objAtt As Outlook.Attachment
   Dim saveFolder As String, saveSubfolder As String

    saveFolder = "Z:\Personnel\test outlook VBA\"
    saveSubfolder = saveFolder & Format(itm.receivedtime, "dd.mm.yyyy")
    If Dir(saveSubfolder, 16) = "" Then MkDir saveSubfolder
    For Each objAtt In itm.Attachments
        objAtt.SaveAsFile saveSubfolder & objAtt.DisplayName
        Set objAtt = Nothing
    Next

End Sub