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

Se abbiamo convertito l'email HTML in RTF prima di rispondere, tutti i nomi degli allegati verranno copiati nel messaggio di risposta dopo aver cliccato Home > Rispondi in Outlook.

1. Fare doppio clic per aprire l'email i cui nomi degli allegati devi copiare, quindi fare clic su Messaggio > Azioni > Modifica Messaggio nella finestra del messaggio. Vedi screenshot:

2. Procedi facendo clic su Formato Testo > Testo Formattatoe poi salva e chiudi l'email.

3. Ora sei tornato alla vista principale. Mantieni selezionata l'email e fai clic su Home > Rispondi.

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

Rispondi facilmente alle email selezionate mantenendo tutti gli allegati originali in Outlook

In generale, gli allegati originali vengono rimossi quando si risponde a un'email in Outlook. Tuttavia, con la fantastica funzione Rispondi con Allegato di Kutools per Outlook, puoi facilmente mantenere tutti gli allegati delle email quando rispondi in Outlook.

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

1. Seleziona l'email a cui vuoi rispondere e fai clic su Kutools Plus > Strumenti Allegati > Copia Nomi.

Apparirà una finestra di dialogo che ti informa che i nomi degli allegati sono stati copiati negli appunti. Fai 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 Ctrl + V per incollare facilmente i nomi degli allegati.

Questo metodo introdurrà una macro VBA per copiare tutti i nomi degli allegati quando si risponde a un'email e poi incollare i nomi nel corpo del messaggio della risposta in Outlook.

1. Premi contemporaneamente Alt + F11 per aprire la finestra Microsoft Visual Basic per Applicazioni.

2. Nel riquadro Esplora Progetti a sinistra, espandi Progetto 1, fai doppio clic per aprire ThisOutlookSession finestra (vedi screenshot sotto), quindi 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 che si apre per Outlook 2016, controlla il Microsoft Word 16.0 Object Library riferimento nella casella Riferimenti Disponibili e fai clic sul pulsante OK . Vedi screenshot:

Nota: Per favore seleziona il Microsoft Word 15.0 Object Library riferimento se stai lavorando con Outlook 2013, oppure Microsoft Word 14.0 Object Library riferimento con Outlook 2010.

5. Salva il VBA e chiudi la finestra Microsoft Visual Basic per Applicazioni.

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

E ora tutti i nomi degli allegati vengono copiati dall'email selezionata e incollati nell'email di risposta. Vedi screenshot: