Come rinominare e salvare gli allegati delle email in una cartella in Outlook?

AutoreSun Data di modifica2025-04-17

In Outlook, ricevi spesso messaggi con allegati e ti sei mai chiesto se fosse possibile rinominare gli allegati di un messaggio e salvarli in una cartella, come illustrato nello screenshot seguente? Certo, puoi sempre salvarli in una cartella e rinominarli uno per uno, ma in realtà ho un codice VBA che ti permette di rinominare rapidamente tutti gli allegati con lo stesso nome e salvarli in un’unica cartella.
doc rinomina salva allega 1

Rinomina e salva gli allegati con lo stesso nome in una cartella

Rinomina e salva gli allegati in una cartella con Kutools per Outlook

Rinomina e salva gli allegati con lo stesso nome in una cartella

1. Seleziona il messaggio i cui allegati desideri salvare e rinominare tutti con lo stesso nome.

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

VBA: Rinomina e salva 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 rinomina salva allegati in una cartella 2

3. Fai clic su «Strumenti» > «Riferimenti» e, nella finestra di dialogo visualizzata, seleziona la casella «Microsoft Script Runtime».

doc rinomina salva allegati in una cartella 3

doc rinomina salva allegati in una cartella 4

4. Fai clic su «OK», quindi premi il tasto "F5" per eseguire il codice: si aprirà la finestra di dialogo «Sfoglia cartelle», dove potrai selezionare o creare una cartella in cui salvare gli allegati.
doc rinomina salva allegati in una cartella 5

5. Fai clic su OK, quindi assegna un nome agli allegati.
doc rinomina salva allegati in una cartella 6

6. Fai clic su «OK»: gli allegati sono ora rinominati con lo stesso nome. In caso di duplicati, verrà aggiunto un numero come suffisso.

Rispondi al messaggio con gli allegati originali in Outlook

Come tutti sanno, gli allegati vengono rimossi dal messaggio originale quando si risponde a un destinatario in Outlook. Se desidera rispondere mantenendo gli allegati, può provare la funzione che le permette di includere automaticamente gli allegati originali nella risposta — e funziona con tutti i messaggi!Clicchi per provare gratuitamente tutte le funzionalità per 30 giorni!Kutools per OutlookRisposta con allegati

Kutools per Outlook: con decine di pratici componenti aggiuntivi per Outlook, da provare gratuitamente senza limitazioni per 30 giorni.

Rinomina e salva gli allegati in una cartella con Kutools per Outlook

In realtà, «Kutools per Outlook» – un pratico componente aggiuntivo per Outlook – include una funzionalità che ti permette di rinominare tutti gli allegati prima di salvarli o inviarli.

Kutools per Outlook: Sblocca oltre 100 funzionalità essenziali e avanzate!Scarica ed esplora oggi stesso!

Installa gratuitamente Kutools per Outlook, quindi segui i passaggi indicati di seguito:

1. Attiva l'email nel riquadro di lettura o nella finestra del messaggio, in base alle tue preferenze, quindi fai clic su «Kutools» > «Strumenti allegati» > «Rinomina tutti».
doc rinomina salva allega 2

2. Nella finestra di dialogo visualizzata, inserisci il nuovo nome da assegnare a ciascun allegato e fai clic su «OK». Gli allegati verranno rinominati con il nuovo nome specificato.
doc rinomina salva allega 3

3. Fai clic con il pulsante destro del mouse su un allegato, seleziona «Salva tutti gli allegati», fai clic su «OK» e scegli una cartella in base alle tue esigenze per salvare gli allegati. Gli allegati rinominati verranno così salvati nella cartella selezionata.
doc rinomina salva allega 5

Migliori strumenti per la produttività in Office

Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!

🤖KUTOOLS AI:Utilizza tecnologia AI avanzata per gestire le email senza sforzo, inclusi rispondere, riassumere, ottimizzare, estendere, tradurre e comporre email.

📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...

📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...

📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…

🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...

👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...

👩🏼‍🤝‍👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...

Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!

Sblocca istantaneamente Kutools per Outlook con un solo clic! Non aspettare oltre: scaricalo ora e aumenta subito la tua efficienza!

Elenco funzionalità di Kutools per Outlook Scarica ora Vai all’acquisto

🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office

Fortemente consigliato: Kutools for Office (5-in-1)

Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!

✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite