Salvare gli allegati da molte e-mail contemporaneamente in Outlook?

Qualcuno mi ha inviato 200 e-mail durante la notte, con un file allegato a testa. sospiro

Mi aspetto altri 200 ogni notte per le prossime tre notti (le e-mail provengono da un server, quindi non è possibile chiedere loro di raggrupparle).

Gli allegati di file hanno nomi di file univoci, quindi esiste un modo semplice per salvare gli allegati da tutto il gruppo di e-mail contemporaneamente?

Odierei dover aprire ogni e-mail singolarmente, fare clic con il tasto destro, salvare, risciacquare, ripetere ...

Sono fluente in VBA, mi sento molto a mio agio nel creare macro di Excel, quindi posso immaginare che dovrebbe essere relativamente facile attraversare una determinata cartella per tutti i messaggi e salvare gli allegati per ciascuno, ma non ho mai scritto una macro di Outlook prima, non ho familiarità con la gerarchia degli oggetti.

OutlookAttachView di NirSoft può farlo facilmente, anche dalla riga di comando!

OutlookAttachView esegue la scansione di tutti i messaggi archiviati in Outlook e visualizza l'elenco di tutti i file allegati che trova. È possibile selezionare facilmente uno o più allegati e salvarli tutti nella cartella desiderata, nonché eliminare gli allegati di grandi dimensioni indesiderati che occupano troppo spazio su disco nella cassetta postale. È inoltre possibile salvare l'elenco degli allegati nel file xml / html / text / csv.

OutlookAttachView è freeware.

Componente aggiuntivo di rimozione allegati di Outlook :

Componente aggiuntivo gratuito di Outlook per il salvataggio e l'estrazione di allegati, riducendo le dimensioni dei file di Outlook. Facile da usare. Molte funzioni.

Ecco alcune altre opzioni con questo.

Il sito http://slipstick.com di Sue Mosher è una risorsa fantastica per Outlook. Anche lei è una Microsoft MVP.

Per i programmatori là fuori: salva gli allegati sul disco rigido e in alternativa salva e apri un allegato usando VBA .

Il seguente codice funziona in Outlook 2000 e versioni successive. Salva gli allegati dai messaggi selezionati ma non elimina gli allegati dai messaggi.

...

Copia e incolla il codice da questa pagina nel tuo progetto ThisOutlookSession.

In Outlook, premi Alt + F11 per aprire l'editor VBA ed espandere Oggetti di Microsoft Outlook, quindi fai doppio clic su ThisOutlookSession per aprirlo nel riquadro di modifica e Ctrl + V per incollare il codice.

Per usarlo devi prima creare una cartella sotto Documenti personali denominata OLAttachments (il codice non la creerà per te). Quindi selezionare uno o più messaggi ed eseguire la macro per salvare gli allegati. Prima di abilitare le macro o firmare la macro, devi impostare la sicurezza delle macro in modo da avvisare. È possibile modificare il nome della cartella o il percorso in cui vengono salvati gli allegati modificando il codice.

Public Sub SaveAttachments()
Dim objOL As Outlook.Application
Dim objMsg As Outlook.MailItem 'Object
Dim objAttachments As Outlook.Attachments
Dim objSelection As Outlook.Selection
Dim i As Long
Dim lngCount As Long
Dim strFile As String
Dim strFolderpath As String
Dim strDeletedFiles As String

    ' Get the path to your My Documents folder
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next

    ' Instantiate an Outlook Application object.
    Set objOL = CreateObject("Outlook.Application")

    ' Get the collection of selected objects.
    Set objSelection = objOL.ActiveExplorer.Selection

' The attachment folder needs to exist
' You can change this to another folder name of your choice

    ' Set the Attachment folder.
    strFolderpath = strFolderpath & "\OLAttachments\"

    ' Check each selected item for attachments. 
    For Each objMsg In objSelection

    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count

    If lngCount > 0 Then

    ' Use a count down loop for removing items
    ' from a collection. Otherwise, the loop counter gets
    ' confused and only every other item is removed.

    For i = lngCount To 1 Step -1

    ' Get the file name.
    strFile = objAttachments.Item(i).FileName

    ' Combine with the path to the Temp folder.
    strFile = strFolderpath & strFile

    ' Save the attachment as a file.
    objAttachments.Item(i).SaveAsFile strFile

    Next i
    End If

    Next

ExitSub:

Set objAttachments = Nothing
Set objMsg = Nothing
Set objSelection = Nothing
Set objOL = Nothing
End Sub

E se non vuoi programmare: Strumenti di gestione degli allegati per Outlook

Dopo essere stato bombardato con e-mail da una persona che pensava fosse bello inviarmi un file RAR diviso in 30 e-mail, ho usato con successo questo script VBA pubblicato da Microsoft chiamato mAttachmentSaver.

Innanzitutto, devi scaricare l'archivio contenente lo script .

È importante abilitare le macro. In Outlook 2010, puoi farlo andando su File »Opzioni» Centro protezione »Impostazioni Centro protezione» Impostazioni macro »Abilita tutte le macro» OK »OK . Quindi è necessario riavviare Outlook. Per le versioni precedenti, si trova in Strumenti »Macro» Sicurezza… .

Quindi, seguire i passaggi descritti nell'articolo di TechCenter:

• Premere Alt+F11per aprire VBE in Outlook.

• Trascina il mAttachmentSaver.basfile in Esplora progetti (premi Ctrl+Rse non riesci a vederlo) o tramite File >> Importa file ... ( Ctrl+M).

  Esegui la ExecuteSavingmacro per salvare gli allegati.

• Torna all'interfaccia utente di Outlook, quindi premi Alt+F8per aprire la finestra Macro.

• Selezionare ExecuteSavingnell'elenco dei nomi, quindi fare clic sul pulsante Esegui (ricordarsi di selezionare gli elementi di Outlook prima di eseguire questa macro).

• Selezionare una cartella specifica per salvare gli allegati dalla finestra di dialogo Cerca cartella , quindi fare clic sul pulsante OK .