Office Outlook 2007 salvare gli allegati di un gruppo email.

Se per caso vi fosse successo di ricevere una svariata decina di email con in allegato dei file da salvare ... beh, Outlook non è dalla nostra parte e non ci aiuta nemmeno un pò.

Fortuna che ci sono le macro!!!

Sub SalvaAllegati()

Dim i As MailItem
For Each i In Application.Explorers.Item(1).Selection
Dim a As Attachment
For Each a In i.Attachments
a.SaveAsFile ("c:\temp\" & a.FileName)
Next
Next
End Sub

Create la macro, selezionate le email con gli allegati da recuperare e avviate la macro.

Andate nella cartella di destinazione e trovere i file salvati!