Hi,

I want to add the subject line of the outlook with attachment file name. Please help me add the coding with below mentioned coding.


Public Sub SaveOutlookAttachmentsToDisk(MItem As Outlook.MailItem)

Dim oOutlookAttachment As Outlook.Attachment
Dim sSaveAttachmentsFolder As String
sSaveAttachmentsFolder = “ D:\ServerReports\outlook-attachments\”
For Each oOutlookAttachment In MItem.Attachments
oOutlookAttachment.SaveAsFile sSaveAttachmentsFolder & oOutlookAttachment.DisplayName
Next

End Sub

Regards,
Uday