Come salvare solo allegati specifici (Excel) in Outlook?

Outlook offre una funzionalità Salva tutti gli allegati per salvare rapidamente tutti gli allegati in un'e-mail in una cartella specifica contemporaneamente. Tuttavia, se desideri salvare solo un tipo specifico di allegato in un'e-mail, come un allegato Excel, un documento Word e così via, cosa puoi fare per ottenerlo? Qui forniamo un metodo VBA per risolvere il problema.

Salva solo un allegato specifico in Outlook

Salva solo un allegato specifico in Outlook

Il codice VBA sottostante può aiutare a salvare solo allegati specifici in un'e-mail o più e-mail in una cartella specifica. Si prega di fare quanto segue.

1. Avvia Outlook, nell'elenco di posta, seleziona una o più e-mail da cui salverai un allegato specifico.

2. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra. Nella finestra di apertura, fare clic su inserire > Modulo, quindi copia sotto il codice VBA nella finestra del modulo.

Codice VBA: salva solo un allegato specifico in un'e-mail o più e-mail in una cartella

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. Clic Strumenti > Referenze, Nella Riferimenti - Progetto finestra di dialogo, controlla il file Runtime di script Microsoft casella e fare clic su OK pulsante.

4. premi il F5 chiave per eseguire il codice. Nel saltò fuori Cerca cartella finestra di dialogo, scegli una cartella per salvare gli allegati.

5. Quindi fare clic su OK, nel seguente Kutools per Outlook finestra di dialogo, immettere l'estensione del file dell'allegato che si salverà nella casella di testo e fare clic OK.

Quindi vengono salvati solo gli allegati specificati.

Note:

1. Se si desidera salvare diversi tipi di allegati, immettere le estensioni dei file nella casella di testo e separarli con una virgola.

2. Dopo il salvataggio, sul corpo del messaggio viene visualizzato un percorso di salvataggio degli allegati. È possibile aprire l'allegato facendo clic direttamente sul collegamento ipertestuale.

Articoli correlati:

• Come salvare tutti gli allegati dai messaggi di posta elettronica in Outlook?
• Come rimuovere tutti gli allegati dalla posta elettronica in Outlook?

Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

• Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
• Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
• Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
• Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
• E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.

Leggi di più... Scarica ora...