Come copiare tutti gli allegati da più email in una nuova email in Outlook?

Author: Kelly Last Modified: 2025-08-06

Gestire gli allegati delle email in modo efficiente in Outlook può essere difficile, soprattutto quando è necessario estrarre allegati da più email e consolidarli in una nuova email o copiare tutti gli allegati da un'email in una risposta. Salvare manualmente e riattaccare i file non solo richiede tempo, ma è anche soggetto a errori. Fortunatamente, ci sono due modi efficaci per semplificare questa operazione. È possibile utilizzare VBA per estrarre e inserire allegati da più email in una nuova email, sebbene ciò richieda alcune conoscenze tecniche. Tuttavia, per una soluzione più rapida e senza complicazioni, lo strumento Kutools per Outlook offre un'opzione con un solo clic per copiare immediatamente tutti gli allegati da un'email in una email di risposta, rendendolo la scelta più efficiente e facile da usare.

Copia tutti gli allegati da più email in una nuova email utilizzando VBA (Manuale e Tecnico)

Copia istantaneamente tutti gli allegati da un'email in una email di risposta con uno strumento fantastico 👍 (Senza sforzo e Consigliato)

Copia tutti gli allegati da più email in una nuova email utilizzando VBA

Se preferisci utilizzare VBA per automatizzare il processo, puoi seguire questi passaggi per estrarre rapidamente e copiare tutti gli allegati da più email in una nuova email.

Passo 1: Seleziona più email

In Outlook, seleziona le email contenenti gli allegati che desideri copiare.

Tieni premuto "Ctrl" per selezionare più email non adiacenti.
Tieni premuto "Shift" per selezionare un intervallo di email adiacenti.

Passo 2: Apri l'editor VBA

Premi "Alt" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".

Passo 3: Inserisci il codice VBA in un nuovo modulo

Clicca "Inserisci" > "Modulo" per creare un nuovo modulo. Incolla quindi il seguente codice VBA nella finestra del modulo:

VBA: Copia tutti gli allegati da più email in una nuova email

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

Passo 4: Esegui il codice VBA

Premi "F5" o clicca sul pulsante Esegui per eseguire il codice. Si aprirà una nuova email contenente tutti gli allegati estratti dalle email selezionate.

Svantaggi:

❌ Richiede conoscenza di VBA: Non adatto ai principianti e comporta il lavoro con il codice.
❌ Configurazione manuale richiesta: Devi aprire l'editor VBA, inserire il codice ed eseguirlo ogni volta.
❌ Possibili restrizioni di sicurezza: Alcune versioni di Outlook bloccano le macro a causa delle politiche di sicurezza.
❌ Nessuna flessibilità: Devi rieseguire lo script ogni volta che devi copiare nuovamente gli allegati.

📂 Salva Allegati da Più Email senza Sforzo

Stanco di salvare gli allegati uno per uno in Outlook? Ottimizza il tuo flusso di lavoro con Kutools per Outlook! La potente funzione Salva Tutto (Allegati) ti permette di salvare gli allegati da più email o intere cartelle con pochi clic. Dì addio ai processi manuali noiosi e gestisci la tua casella di posta senza sforzo.

Scarica Kutools per Outlook Ora

Copia istantaneamente tutti gli allegati da un'email in una email di risposta con uno strumento fantastico 👍

Per una soluzione più semplice e veloce, puoi utilizzare la funzione Rispondi con Allegato Originale in "Kutools per Outlook". Questo metodo ti consente di copiare tutti gli allegati da un'email direttamente in una email di risposta con un solo clic - non è necessario utilizzare VBA o copiare manualmente gli allegati.

Sblocca l'efficienza massima delle email con Kutools per Outlook! Accedi a 70 funzionalità potenti assolutamente gratis, per sempre. Scarica ora la versione gratuita!

1. Nella vista Mail, seleziona l'email a cui vuoi rispondere. Poi clicca su "Kutools" > "Rispondi con Allegato Originale o Rispondi a Tutti con Allegato Originale".

the screenshot of copying attchment to a replying email using Kutools 1

2. Ora, tutti gli allegati dall'email selezionata vengono automaticamente copiati nella email di risposta.

the screenshot of copying attchment to a replying email using Kutools 2

Vantaggi del metodo Kutools per Outlook:

✅ Nessuna copia o incolla manuale: Funziona istantaneamente con un solo clic.
✅ Nessun bisogno di codice VBA: Facile da usare e senza complicazioni.
✅ Risparmio di tempo: Riduce drasticamente lo sforzo rispetto ai metodi manuali.
✅ Compatibile con tutte le versioni di Outlook: Nessuna restrizione di macro o avvisi di sicurezza.

Nota: Per applicare l'utilità Rispondi con Allegato Originale di Kutools per Outlook, prima di tutto, dovresti scaricare e installare Kutools per Outlook.