Discussion :

[xoroli]

Bonjour

Je souhaite enregistrer une pièce jointe depuis une règle dans mon Outlook, pour les emails entrants comprenant une pièce jointe puissent être enregistrer systématique dans un dossier de Mon PC, avec comme seul condition qu'ils s'agissent d'un PDF.

Merci d'avance, pour votre script VBA

[xoroli]

J'ai trouvé une solution
----------------------------------------------------

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\DT168\Documents\outlook-attachments"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub
---------------------------------------------

Merci