Come rinominare e salvare gli allegati di un'email in una cartella in Outlook?
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.
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
3. Clicca su "Strumenti" > "Riferimenti", nella finestra che si apre seleziona la casella "Microsoft Script Runtime".
![]() | ![]() | ![]() |
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.
5. Clicca OK, quindi inserisci un nome per gli allegati.
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.
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".
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.
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.
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...

