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 notizie: Kutools per Outlook lancia la versione gratuita!
Scopri il nuovissimo Kutools per Outlook con oltre100 funzionalità straordinarie! Clicca per scaricare ora!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio Email / CC/BCC automatico tramite Regola durante l’invio delle Email / Inoltro automatico (Regola avanzata) / Aggiungi Saluto automaticamente / Dividi automaticamente Email multi-destinatario in messaggi singoli ...
📨 Gestione Email: Richiama Email / Blocca Email fraudulent (tramite Oggetto e altri parametri) / Elimina Email Duplicato / Ricerca Avanzata / Organizza cartelle ...
📁 Allegati Pro: Salva in Batch / Distacca in Batch / Comprimi in Batch / Salvataggio automatico / Distacca automaticamente / Auto Comprimi ...
🌟 Magia Interfaccia: 😊Più emoji belle e divertenti / Notifiche per le email importanti in arrivo / Riduci Outlook al posto di chiuderlo ...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email Anti-Phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in Batch contatti dalle Email selezionate / Dividi un Gruppo di Contatti in Gruppi singoli / Rimuovi promemoria di compleanno ...
Utilizza Kutools nella lingua che preferisci – supporta Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!
🚀 Download con un solo clic — Ottieni tutti gli Add-in per Office
Consigliato: Kutools per Office (5-in-1)
Un solo clic per scaricare cinque installatori contemporaneamente — Kutools per Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clicca per scaricare ora!
- ✅ Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in una sola azione.
- 🚀 Pronto per qualsiasi attività Office: installa i componenti aggiuntivi necessari, quando ti servono.
- 🧰 Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools per PowerPoint