Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

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 facilmente tutti gli allegati da più email selezionate nella cartella:

Con la Scollega tutti gli allegati utilità di Kutools for Excel, puoi facilmente salvare tutti gli allegati da più e-mail selezionate nella cartella specificata in Outlook come mostrato nell'immagine sottostante.

Kutools per Outlook: con più di 40 utili componenti aggiuntivi di Outlook, liberi di provare senza limitazioni in 45 giorni. Scarica e prova gratuita ora!

Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; 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 di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzionalità avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 60 giorni.

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:


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.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.