VBA in Outlook: Use Subject as File Name to Save Attachment

[Fwazfawzy]

السلام عليكم 

أرجو المساعدة فى هذا الكود لإضافة كود لتسمية الملفات التى يتم حفظها بإسم موضوع الإيميل

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\10722\OneDrive - Alsalehiya\Desktop\GR-Nupco\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub
 

شكرا