If by chance you happened to receive tens of emails with attached files to be saved ... Well, Outlook is not on our side and we do not even help a little.
Luckily there are macro!
Sub SalvaAllegati ()
Dim i As MailItem For Each i In
Application.Explorers.Item (1).
Selection Dim a As Attachment For Each a Ini.AttachmentsGo to the destination folder and find the saved files!
a.SaveAsFile ("c: \\ temp \\" & a.FileName )
Next Next End Sub
Create the macro, select the email with attachments to be recovered and run the macro.
0 comments:
Post a Comment