I would like to save an email attachment in a network or hard drive folder based on the date of the email and save in the folder with the format mm.dd (month.day).
I have the following macro that will save an email attachment automatically to a folder named saveFolder = "c:\attachments\".
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "c:\attachments\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub
Can someone help me with the additional code to accomplish this?
Thank you.
Bookmarks