Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Connetti
x
or
x
x
Registrati
x

or

Come salvare solo un allegato specifico (excel) in Outlook?

Outlook offre una funzionalità Salva tutti gli allegati per consentire di salvare rapidamente tutti gli allegati in un messaggio di posta elettronica in una cartella specifica in una sola volta. Tuttavia, se si desidera salvare solo un tipo specifico di allegato in un messaggio di posta elettronica, ad esempio un allegato Excel, un documento Word e così via, cosa si può fare per ottenerlo? Qui forniamo un metodo VBA per risolvere il problema.

Salva solo allegati specifici in Outlook


Salva facilmente tutti gli allegati da più email selezionate alla cartella:

Con il Staccare 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 for Outlook: con più di 40 utili componenti aggiuntivi di Outlook, liberi di provare senza limitazioni nei giorni 45. Scarica e prova gratis ora!

Scheda Office: abilita la modifica e la navigazione a schede in Office e semplifica notevolmente il lavoro ...
Kutools per Outlook: porta a Microsoft Outlook potenti funzionalità avanzate di 100
  • Auto CC / BCC dalle regole per l'invio di e-mail; Avanzamento automatico Email multiple secondo le regole; Risposta automatica senza server di scambio e funzionalità più automatiche ...
  • Avviso BCC - mostra il messaggio quando tenti di rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano gli allegatie altro ancora ricorda le funzionalità ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiungi saluto automatico quando rispondi; Aggiungi automaticamente data e ora nell'oggetto ...
  • Strumenti di collegamento: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva automaticamente tutto ... Rapporto rapido, Conta le email selezionate, Rimuovi email duplicate e contatti ...
  • Oltre alle funzionalità avanzate di 100 risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Versione di prova gratuita di 60 giorno completo.

Salva solo allegati specifici in Outlook

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

1. Avvia la tua Outlook, nella mailing list, seleziona una email o più email da cui salvi gli allegati specifici.

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

Codice VBA: salva solo allegati specifici in un'email 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 Referenze - Progetto dialogo, controlla il Microsoft Scripting Runtime casella e fare clic su OK pulsante.

4. premi il F5 chiave per eseguire il codice. Nel saltato fuori Sfoglia per cartella finestra di dialogo, scegliere una cartella per salvare gli allegati.

5. E poi, clicca OK, nel seguente Kutools for Outlook finestra di dialogo, inserire 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 vuoi salvare diversi tipi di allegati, inserisci le estensioni dei file nella casella di testo e separali 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 per Outlook: porta le funzionalità avanzate di 100 su Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole per l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e funzionalità più automatiche ...
  • Avviso BCC - mostra il messaggio quando si tenta di rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano gli allegatie altro ancora ricorda le funzionalità ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiungi saluto automatico quando rispondi; Aggiungi data nell'oggetto ...
  • Strumenti allegati: gestisci tutti gli allegati in tutti i messaggi, Distacco automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti di consuetudine; Rimuovi email e contatti duplicati... Ti consente di fare in modo più intelligente, più veloce e migliore in Outlook.
scheda kutools outlook kutools tab 1180x121
tiro kutools outlook kutools più tab 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
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.