Como copiar os nomes de todos os anexos ao responder no Outlook?

Se tivermos convertido previamente o e-mail HTML para RTF antes de responder, os nomes de todos os anexos serão automaticamente copiados para a mensagem de resposta ao clicar em Início > Responder no Outlook.

1. Faça duplo clique para abrir o e-mail cujos nomes dos anexos pretende copiar e, em seguida, clique em Mensagem > Ações > Editar Mensagem na janela da mensagem. Veja a captura de ecrã:

2. Prossiga e clique em Texto Formatado > Texto Enriquecido, depois guarde e feche o e-mail.

3. Agora regressou à vista principal. Mantenha o e-mail selecionado e clique em Início > Responder.

4. Agora, os nomes de todos os anexos foram copiados do e-mail original e colados na mensagem de resposta, tal como mostrado na captura de ecrã abaixo. Redija a sua mensagem de resposta e envie-a!

Responda facilmente Responder a Vários Emails Selecionados com todos os anexos originais mantidos no Outlook

Normalmente, os anexos originais são removidos ao responder a um e-mail no Outlook. No entanto, com a fantástica funcionalidade Responder com Anexo do Kutools para Outlook, pode manter facilmente todos os anexos ao responder diretamente no Outlook.

Se tiver o Kutools para Outlook instalado, pode utilizar a sua funcionalidade Copiar Nomes para copiar rapidamente todos os nomes dos anexos de um e-mail recebido e colá-los facilmente na sua mensagem de resposta no Outlook.

1. Selecione o e-mail ao qual pretende responder e clique em KUTOOLS PLUS > Ferramentas de Anexo > Copiar Nomes.

Depois, surge uma caixa de diálogo a informar que os nomes dos anexos foram copiados para a área de transferência. Clique em OK para fechá-la.

2. Prossiga e clique em Início > Responder para responder ao e-mail selecionado.

3. Na janela da mensagem de resposta, coloque o cursor no corpo da mensagem e prima as teclas Ctrl+V para colar facilmente os nomes dos anexos.

Este método apresenta uma macro VBA que copia os nomes de todos os anexos ao responder a um e-mail e os cola diretamente no corpo da mensagem de resposta no Outlook.

1. Prima simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. No Explorador de Projetos à esquerda, expanda o Projeto 1, faça duplo clique na janela ThisOutlookSession (veja a captura de ecrã abaixo) para a abrir e cole o código seguinte na janela.

VBA: Copiar os nomes de todos os anexos ao responder a um e-mail no 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. Clique em Ferramentas > Referências.

4. Na janela Referências – Projeto 1 aberta no Outlook 2016, marque a referência Microsoft Word 16,0 Object Library na caixa Referências Disponíveis e clique no botão OK. Veja a captura de ecrã:

Nota: selecione a referência Microsoft Word 15,0 Object Library se estiver a utilizar o Outlook 2013 ou a referência Microsoft Word 14,0 Object Library se estiver a utilizar o Outlook 2010.

5. Guarde o código VBA e feche a janela do Microsoft Visual Basic for Applications.

6. Agora está de regresso à interface principal do Outlook. Selecione o e-mail a que pretende responder e clique em Início > Responder ou Responder a Todos.
Nota: Se os nomes dos anexos não forem copiados e colados automaticamente na mensagem de resposta, reinicie o Outlook e tente responder novamente.

E agora os nomes de todos os anexos foram copiados do e-mail selecionado e colados na mensagem de resposta. Veja a captura de ecrã: