Skip to main content

Como responder a todos com os anexos originais no Outlook?

Author: Xiaoyang Last Modified: 2025-06-04

Já clicou em "Responder a Todos" no Outlook e perdeu os anexos originais? É frustrante! Está se perguntando como manter esses anexos ao responder a todos? Sim, é possível! Vamos explorar como incluir os anexos originais nas suas respostas, tornando a gestão de e-mails mais fluida e eficiente. Fique atento!

Responder a todos com os anexos originais usando código VBA

Responder a todos com os anexos originais com o Kutools para Outlook


Responder a todos com os anexos originais usando código VBA

Não há um recurso direto para lidar com essa tarefa no Outlook, mas você pode aplicar o seguinte código VBA para alcançá-la. Por favor, siga as etapas abaixo:

1. Inicie o Outlook e, em seguida, mantenha pressionadas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes em ThisOutlookSession no painel Project1(VbaProject.OTM) para abrir o modo, e depois copie e cole o seguinte código no módulo em branco.

Código VBA: Responder a todos com os anexos originais:

Sub ReplyAllWithAttachments()
'Updateby Extendoffice
Dim xItem As Object
On Error Resume Next
Select Case TypeName(Outlook.Application.ActiveWindow)
Case "Explorer"
For Each xItem In Outlook.Application.ActiveExplorer.Selection
GetReplyItem xItem
Next
Case "Inspector"
Set xItem = Outlook.Application.ActiveInspector.CurrentItem
GetReplyItem xItem
End Select
Set xItem = Nothing
End Sub
Sub GetReplyItem(Item As Object)
Dim xReplyMailItem As Outlook.MailItem
On Error Resume Next
If Not Item Is Nothing Then
Set xReplyMailItem = Item.ReplyAll
GetAttachments Item, xReplyMailItem
xReplyMailItem.Display
'xReplyMailItem.Send
Item.UnRead = False
End If
Set xReplyMailItem = Nothing
End Sub
Sub GetAttachments(xSourceItem, xTargetItem)
Dim xFSO As Scripting.FileSystemObject
Dim xTmpPath As String
Dim xAttachment As Attachment
Dim xTmpFile As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
xTmpPath = CreateObject("shell.Application").NameSpace(5).self.Path & "\TmpAttachments\"
If xFSO.FolderExists(xTmpPath) = False Then
MkDir xTmpPath
End If
For Each xAttachment In xSourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xTmpFile = xTmpPath & xAttachment.FileName
xAttachment.SaveAsFile xTmpFile
xTargetItem.Attachments.Add xTmpFile, , , xAttachment.DisplayName
xFSO.DeleteFile xTmpFile
End If
Next
If xFSO.FolderExists(xTmpPath) Then
Kill xTmpPath
End If
Set xFSO = Nothing
End Sub
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xAttParent As Object
Dim xCID As String, xID As String
Dim xHTML As String
On Error Resume Next
Set xAttParent = Attach.Parent
xCID = ""
xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCID <> "" Then
xHTML = xAttParent.HTMLBody
xID = "cid:" & xCID
If InStr(xHTML, xID) > 0 Then
IsEmbeddedAttachment = True
Else
IsEmbeddedAttachment = False
End If
End If
End Function
doc reply all with attachment 1

3. Em seguida, clique em Ferramentas > Referências na janela do Microsoft Visual Basic for Applications, na caixa de diálogo Referências-Project1 que apareceu, marque a opção Microsoft Scripting Runtime na lista de referências disponíveis, veja a captura de tela:

doc reply all with attachment 9

4. Depois salve e feche a janela de código, e então você pode adicionar o botão de macro na Barra de Acesso Rápido.

5. Abra o e-mail que deseja responder a todos com anexo na janela de Mensagem, depois escolha Mais Comandos no menu suspenso Personalizar Barra de Acesso Rápido, veja a captura de tela:

doc reply all with attachment 2

6. Na caixa de diálogo Opções do Outlook, faça as seguintes operações:

(1.) Selecione Macros na lista suspensa Escolher comandos de;

(2.) Clique no nome da macro que você inseriu agora mesmo;

(3.) E depois clique no botão Adicionar para adicionar a macro à Barra de Acesso Rápido Personalizada.

doc reply all with attachment 3

7. Depois clique em OK para fechar a caixa de diálogo, agora, o botão de macro foi inserido na Barra de Acesso Rápido, veja a captura de tela:

doc reply all with attachment 4

8. Agora, clique no botão de macro, e a janela de mensagem de resposta com os anexos originais será aberta, depois redija a mensagem de resposta e clique no botão Enviar, veja a captura de tela:

doc reply all with attachment 5

Responder a todos com os anexos originais com o Kutools para Outlook

Se você tem o Kutools para Outlook, com seu recurso Responder a Todos com Anexo, você pode responder a todos com anexos em apenas um clique.

Desbloqueie a máxima eficiência de e-mail com o Kutools para Outlook! Acesse 70 recursos poderosos totalmente grátis, para sempre. Faça o download da Versão Gratuita Agora!

Após instalar o Kutools para Outlook, por favor, faça o seguinte:

1. Selecione a mensagem que deseja responder a todos com anexos, e depois clique em Kutools > Responder a Todos com Anexo Original, veja a captura de tela:

doc reply all with attch kto 1

2. E a janela de mensagem de resposta será aberta com os anexos originais, depois redija sua mensagem e envie-a, veja a captura de tela:

doc reply all with attachment 7

Clique para baixar a Versão Gratuita do Kutools para Outlook agora!


Melhores Ferramentas de Produtividade para Office

Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!

Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...

📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...

📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...

🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...

👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...

👩🏼‍🤝‍👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2