Come copiare tutti gli allegati da più email in un’unica nuova email in Outlook?

Gestire in modo efficiente gli allegati delle email in Outlook può essere impegnativo, soprattutto quando devi estrarre allegati da più messaggi per raggrupparli in una nuova email o copiare tutti gli allegati di un'email direttamente nella risposta. Salvare e ri-allegare manualmente i file non è solo dispendioso in termini di tempo, ma anche soggetto a errori. Fortunatamente, esistono due metodi efficaci per semplificare questa operazione. Puoi utilizzare VBA per estrarre e inserire allegati da più email in una nuova email, sebbene ciò richieda una certa conoscenza tecnica. Tuttavia, per una soluzione più rapida e senza complicazioni, lo strumento Kutools per Outlook offre un'opzione con un solo clic per copiare istantaneamente tutti gli allegati da un'email direttamente nella risposta, risultando 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 tutti gli allegati da un'email in una risposta istantaneamente con uno strumento eccezionale 👍(Semplice e consigliato)

---

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

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

Passo 1: Seleziona più email

In Outlook, seleziona le email che contengono 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 di Microsoft Visual Basic for Applications.

Passo 3: Inserisci il codice VBA in un nuovo modulo

Fai clic su  «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 fai clic sul pulsante Esegui per avviare il codice: si aprirà una nuova email contenente tutti gli allegati estratti dalle email selezionate.

---

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

Per una soluzione più semplice e veloce, puoi usare la funzione **«Rispondi con allegati originali»** di **Kutools per Outlook**: con un solo clic, copia automaticamente tutti gli allegati da un'email direttamente nella tua risposta, senza dover ricorrere a VBA o alla copia manuale.

1. Nella visualizzazione Posta, seleziona il messaggio a cui vuoi rispondere, quindi fai clic su **Kutools** > **Rispondi con allegati originali** o **Rispondi a tutti con allegati originali**.

2. Ora, tutti gli allegati dell’email selezionata vengono copiati automaticamente nella risposta.

---

Articoli correlati

Come si fa a copiare un allegato da un'email a un'altra in Outlook?