I cookie ci aiutano i nostri servizi. Utilizzando i nostri servizi, l'utente accetta di utilizzare i cookie.
Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
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!

Kutools for Outlook: 100 + Nuovi strumenti avanzati per Outlook.
Office Tab: Abilita la modifica e la navigazione a schede in Office, Proprio come Chrome, Firefox, IE 8 / 9 / 10.
Menu classico: Porta indietro i vecchi menu e le barre degli strumenti a Office 2007, 2010, 2013, 2016 e 2019.

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 for Outlook

Più di 100 Funzioni avanzate per Outlook 2010, 2013, 2016, 2019 e 365

screen shot kutools per outlook minuscolo per banner 201812

Altre caratteristiche | Scarica gratis | Solo $ 39.00 per centinaia di funzioni

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.