Se abbiamo convertito l'e-mail HTML in RTF prima di rispondere, i nomi di tutti gli allegati verranno copiati nel messaggio di risposta dopo aver fatto clic su Home> Rispondi in Outlook.

1. Fare doppio clic per aprire l'e-mail di cui è necessario copiare i nomi degli allegati, quindi fare clic su Messaggio > Azioni > Modifica messaggio nella finestra del messaggio. Vedi screenshot:

2. Vai avanti per fare clic Formato testo > Rich Text, quindi salva e chiudi l'email.

3. Ora torni alla vista principale. Continua a selezionare l'email e fai clic Casa > Rispondi.

4. Ora tutti i nomi degli allegati vengono copiati dall'e-mail originale e incollati nel messaggio di risposta come mostrato nell'immagine sottostante. Si prega di comporre il messaggio di risposta e inviarlo.

Questo metodo introdurrà una macro VBA per copiare i nomi di tutti gli allegati quando si risponde a un'e-mail, quindi incollare i nomi nel corpo del messaggio di risposta all'e-mail in Outlook.

1. stampa altro + F11 tasti contemporaneamente per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. In Project Explorer a sinistra, espandere il progetto 1, fare doppio clic per aprire il file Questa sessione di Outlook finestra (vedi screenshot sotto), quindi incolla il codice sottostante nella finestra.

VBA: copia il nome di tutti gli allegati quando rispondi a un'e-mail 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. Clic Strumenti > Riferimenti.

4. Nella finestra Riferimenti di apertura - Progetto 1 per Outlook 2016, controlla il file Libreria di oggetti di Microsoft Word 16.0 riferimento nella casella Riferimenti disponibili e fare clic su OK pulsante. Vedi screenshot:

Note:: Seleziona il file Libreria di oggetti di Microsoft Word 15.0 riferimento se stai lavorando con Outlook 2013 o Libreria di oggetti di Microsoft Word 14.0 riferimento con Outlook 2010.

5. Salvare il VBA e chiudere la finestra di Microsoft Visual Basic, Applications Edition.

6. Ora torni all'interfaccia principale di Outlook. Seleziona l'e-mail a cui risponderai e fai clic Casa > Rispondi or Rispondi a tutti.
Note:: Se i nomi degli allegati non vengono copiati e incollati nell'e-mail di risposta, riavvia Outlook e rispondi di nuovo.

E ora il nome di tutti gli allegati viene copiato dall'e-mail selezionata e incollato nell'e-mail di risposta. Vedi screenshot:

Se si dispone di Kutools for Outlook installato, puoi applicarlo Copia nomi funzione per copiare rapidamente tutti i nomi degli allegati da un'e-mail ricevuta e quindi incollare facilmente il messaggio di risposta in Outlook.

1. Seleziona l'e-mail a cui risponderai e fai clic Kutools > Strumenti per gli allegati > Copia nomi.

Quindi viene visualizzata una finestra di dialogo che ti informa che i nomi degli allegati vengono copiati negli appunti. Clic OK per chiuderlo.

2. Vai avanti per fare clic Casa > Rispondi per rispondere all'email selezionata.

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

Rispondi facilmente alle e-mail selezionate con tutti gli allegati originali conservati in Outlook

In generale, gli allegati originali vengono rimossi quando si risponde a un'e-mail in Outlook. Ma con fantastico Rispondi con allegato funzionalità di Kutools per Outlook, puoi facilmente conservare tutti gli allegati delle e-mail quando rispondi in Outlook.