Come si fa a copiare tutti i nomi degli allegati quando si risponde in Outlook?

Se convertiamo l'email HTML in RTF prima di rispondere, tutti i nomi degli allegati vengono automaticamente copiati nel messaggio di risposta non appena si fa clic su Home > Rispondi in Outlook.

1. Fai doppio clic per aprire l'email i cui nomi degli allegati vuoi copiare, quindi clicca su Messaggio > Azioni > Modifica messaggio nella finestra del messaggio. Guarda lo screenshot:

2. Procedi facendo clic su Testo formattato > Testo RTF, quindi salva e chiudi l'email.

3. Ora tornerai alla visualizzazione principale. Seleziona nuovamente l'email e fai clic su Home > Rispondi.

4. Ora tutti i nomi degli allegati sono stati copiati dall'email originale e incollati nel messaggio di risposta, come mostrato nello screenshot seguente. Componi il messaggio di risposta e invialo.

Rispondi facilmente Rispondi a più email selezionate mantenendo tutti gli allegati originali in Outlook

Di solito, gli allegati originali vengono rimossi quando si risponde a un'email in Outlook. Tuttavia, grazie alla fantastica funzione Rispondi con allegato di Kutools per Outlook, puoi mantenere facilmente tutti gli allegati dell’email originale nella tua risposta.

Se hai installato Kutools per Outlook, puoi usare la sua funzione Copia Nomi per copiare rapidamente tutti i nomi degli allegati da un'email ricevuta e incollarli facilmente nel messaggio di risposta in Outlook.

1. Seleziona l'email a cui desideri rispondere e fai clic su KUTOOLS PLUS > Strumenti allegati > Copia Nomi.

Verrà visualizzata una finestra di dialogo che indica che i nomi degli allegati sono stati copiati negli Appunti. Fare clic su OK per chiuderla.

2. Procedi facendo clic su Home > Rispondi per rispondere all'email selezionata.

3. Nella finestra del messaggio di risposta, posiziona il cursore nel corpo del messaggio e premi i tasti Ctrl+V per incollare facilmente i nomi degli allegati.

Questo metodo introduce una macro VBA che copia automaticamente tutti i nomi degli allegati quando si risponde a un'email e li incolla nel corpo del messaggio di risposta in Outlook.

1. Premere contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nell’Esplora progetti a sinistra, espandi il Progetto 1, fai doppio clic per aprire la finestra ThisOutlookSession (vedi screenshot seguente) e incolla il codice seguente nella finestra.

VBA: Copia tutti i nomi degli allegati quando si risponde a un'email in Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Fai clic su Strumenti > Riferimenti.

4. Nella finestra Riferimenti – Progetto 1 aperta per Outlook 2016, seleziona il riferimento Microsoft Word 16,0 Object Library nella casella Riferimenti disponibili e fai clic sul pulsante OK. Vedere lo screenshot:

Nota: seleziona il riferimento Microsoft Word 15,0 Object Library se utilizzi Outlook 2013 oppure il riferimento Microsoft Word 14,0 Object Library con Outlook 2010.

5. Salva il codice VBA e chiudi la finestra di Microsoft Visual Basic for Applications.

6. Ora tornerai all'interfaccia principale di Outlook. Seleziona l'email a cui desideri rispondere e fai clic su Home > Rispondi o Rispondi a tutti.
Nota: Se i nomi degli allegati non vengono copiati nell'email di risposta, riavvia Outlook e riprova.

Ora tutti i nomi degli allegati sono stati copiati dall'email selezionata e incollati nell'email di risposta. Vedere lo screenshot: