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 sous-dossier à chaque fois. Chaque nouveau sous-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 dans: "Z:\Personnel\test outlook VBA\11.9.2021".
Voici mon code actuel:
VB:
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 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 sous-dossier à chaque fois. Chaque nouveau sous-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 dans: "Z:\Personnel\test outlook VBA\11.9.2021".
Voici mon code actuel:
VB:
Public Sub savePJ(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder...
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 sous-dossier à chaque fois. Chaque nouveau sous-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 dans: "Z:\Personnel\test outlook VBA\11.9.2021".
Voici mon code actuel:
VB:
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