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 شكرا