Come rinominare e salvare gli allegati di un'email in una cartella in Outlook?

Author: Sun Last Modified: 2025-08-06

In Outlook, spesso ricevi email con allegati. Ti sei mai chiesto come rinominare gli allegati di un'email e salvarli in una cartella, come mostrato nello screenshot qui sotto? Ovviamente, puoi salvarli manualmente in una cartella e rinominarli uno per uno, ma in realtà esiste un codice VBA che permette di rinominare rapidamente tutti gli allegati con lo stesso nome e salvarli in una sola cartella.
doc rename save attach 1

Rinominare e salvare gli allegati con lo stesso nome in una cartella

Rinominare e salvare gli allegati in una cartella con Kutools per Outlook

Rinominare e salvare gli allegati con lo stesso nome in una cartella

1. Seleziona l'email di cui desideri salvare e rinominare gli allegati con lo stesso nome.

2. Premi i tasti "Alt" + "F11", quindi nel riquadro "Project1" fai doppio clic su "ThisOutlookSession" per creare un nuovo script vuoto nella sezione destra, poi copia e incolla il codice al suo interno.

VBA: Rinominare e salvare gli allegati

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
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
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

doc rename save attachments in a folder 2

3. Clicca su "Strumenti" > "Riferimenti", nella finestra che si apre seleziona la casella "Microsoft Script Runtime".

doc rename save attachments in a folder 3

doc rename save attachments in a folder 4

4. Clicca su "OK", poi premi il tasto "F5" per eseguire il codice; apparirà la finestra "Sfoglia per cartella" per selezionare o creare una cartella dove salvare gli allegati.
doc rename save attachments in a folder 5

5. Clicca OK, quindi inserisci un nome per gli allegati.
doc rename save attachments in a folder 6

6. Clicca su "OK"; ora gli allegati sono stati rinominati con lo stesso nome. Se ci sono email duplicate, a quelle duplicate verrà aggiunto un numero come suffisso.

Rispondi al messaggio con gli allegati originali in Outlook

Come tutti sappiamo, gli allegati verranno rimossi dal messaggio originale quando si risponde a un messaggio per il destinatario in Outlook. Se desideri rispondere mantenendo gli allegati, puoi provare la funzione Rispondi con Allegato di Kutools per Outlook, che consente di rispondere a un messaggio mantenendo gli allegati originali ed è efficace per tutti i messaggi. Clicca qui per scoprire tutte le funzionalità 30 giorni di prova gratuita!

Kutools per Outlook: decine di utili add-in per Outlook, disponibili da provare gratuitamente senza limitazioni per 30 giorni.

Rinominare e salvare gli allegati in una cartella con Kutools per Outlook

In realtà, esiste una funzione in "Kutools per Outlook" — un pratico componente aggiuntivo di Outlook che consente di rinominare tutti gli allegati prima di salvarli o inviarli.

Kutools per Outlook: Sblocca oltre 100 funzionalità essenziali e avanzate! Goditi più di 70 funzionalità gratuitamente. Scarica ed esplora la versione gratuita oggi stesso!

Installa gratuitamente Kutools per Outlook, quindi segui questi passaggi:

1. Attiva l'email nel riquadro di navigazione o nella finestra del messaggio, quindi clicca su "Kutools" > "Strumenti allegati" > "Rinomina tutto".
doc rename save attach 2

2. Nella finestra che si apre, inserisci il nuovo nome che vuoi assegnare a ciascun allegato. Clicca su "OK" e gli allegati saranno rinominati con i nuovi nomi.
doc rename save attach 3

3. Fai clic destro su un allegato, seleziona "Salva allegati", clicca su "OK" e scegli una cartella in cui salvare gli allegati secondo le tue esigenze. Gli allegati rinominati verranno così salvati nella cartella.
doc rename save attach 5