Como manter os anexos ao responder no Outlook?
No Microsoft Outlook, quando você encaminha um e-mail, os anexos originais permanecem intactos. No entanto, ao responder a um e-mail, o Outlook remove automaticamente todos os anexos, assumindo que eles não são necessários na conversa. Isso pode ser frustrante e ineficiente, especialmente quando você precisa referenciar arquivos importantes, reenviar documentos ou manter anexos para melhor contexto. Felizmente, existem várias maneiras de garantir que os anexos permaneçam incluídos ao responder no Outlook, seja uma solução manual, de um clique ou automatizada.
Responder com Anexos Copiando e Colando Manualmente (Básico & Trabalhoso)
Resposta com Anexos em Um Clique Usando Kutools para Outlook 👍 (Rápido & Sem Esforço)
Responder com Anexos Automaticamente Usando VBA (Técnico & Requer Configuração)
Responder com Anexos Copiando e Colando Manualmente
Você pode copiar manualmente os anexos de um e-mail e colá-los na mensagem de resposta antes de enviá-la.
1. Abra o Outlook, selecione o e-mail ao qual deseja responder e visualize-o no Painel de Leitura ou abra-o em uma janela separada.
2. Clique em qualquer um dos anexos, depois clique em Selecionar Todos > Copiar na aba Anexos.
3. Clique no botão Responder para abrir uma janela de resposta.
4. Na mensagem de resposta, clique em qualquer lugar no corpo da mensagem e pressione Ctrl + V ou clique em Colar na aba Mensagem para inserir os anexos copiados.
5. Componha sua resposta, revise os anexos e clique em Enviar.
Limitações:
- Manual e repetitivo: Não é ideal para uso frequente.
- Demorado: Requer etapas extras cada vez.
- Propenso a erros: Você pode esquecer de copiar e colar os anexos.
📂 Salve Anexos de Múltiplos Emails sem Esforço
Cansado de salvar anexos um email de cada vez no Outlook? Simplifique seu fluxo de trabalho com o Kutools para Outlook! O poderoso recurso Salvar Todos (Anexos) permite que você salve anexos de múltiplos emails ou pastas inteiras em apenas alguns cliques. Diga adeus a processos manuais tediosos e assuma o controle de sua caixa de entrada sem esforço.
Resposta com Anexos em Um Clique Usando Kutools para Outlook 👍
Para uma maneira rápida e sem esforço de responder com anexos, você pode usar Kutools para Outlook. O recurso Responder com Anexo Original permite que você responda mantendo os anexos originais com apenas um clique.
Chega de ineficiência no Outlook! O Kutools para Outlook torna o processamento de e-mails em lote mais fácil - agora com recursos gratuitos alimentados por IA! Baixe o Kutools para Outlook agora!!
Selecione o e-mail que contém os anexos que você precisa manter. Em seguida, clique em Kutools > Responder com Anexo Original ou Responder a Todos com Anexo Original.
É isso! A mensagem de resposta incluirá automaticamente todos os anexos do e-mail original. Basta compor sua mensagem e clicar em Enviar.
Por que usar Kutools para Outlook?
- ✅ Economiza tempo: Não há necessidade de copiar e colar anexos manualmente.
- ✅ Solução de Um Clique: Responde instantaneamente com anexos.
- ✅ Fácil de usar: Não requer habilidades técnicas.
Responder com Anexos Automaticamente Usando VBA
Para usuários familiarizados com scripts VBA, este método automatiza o processo de responder com anexos. No entanto, ele requer habilitar macros no Outlook e adicionar o script manualmente.
Passo 1: Abrir o editor VBA
1. Selecione a mensagem de e-mail à qual deseja responder.
2. Pressione Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
3. No painel esquerdo, expanda Project1 > Objetos do Microsoft Outlook. Dê duplo clique em ThisOutlookSession para abri-lo.
Passo 2: Inserir o código VBA
Copie e cole o seguinte código VBA na janela ThisOutlookSession:
Sub RunReplyWithAttachments()
'Update by Extendoffice 20250224
Dim xReplyItem As Outlook.MailItem
Dim xItem As Object
On Error Resume Next
Set xItem = GetCurrentItem()
If xItem Is Nothing Then Exit Sub
Set xReplyItem = xItem.Reply
CopyAttachments xItem, xReplyItem
xReplyItem.Display
Set xReplyItem = Nothing
Set xItem = Nothing
End Sub
Sub RunReplyAllWithAttachments()
Dim xReplyAllItem As Outlook.MailItem
Dim xItem As Object
Set xItem = GetCurrentItem()
If xItem Is Nothing Then Exit Sub
Set xReplyAllItem = xItem.ReplyAll
CopyAttachments xItem, xReplyAllItem
xReplyAllItem.Display
Set xReplyAllItem = Nothing
Set xItem = Nothing
End Sub
Function GetCurrentItem() As Object
On Error Resume Next
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
Case "Inspector"
Set GetCurrentItem = Application.ActiveInspector.CurrentItem
End Select
End Function
Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
Dim xFilePath As String
Dim xAttachment As Attachment
Dim xFSO As Object
Dim xTmpFolder As Object
Dim xFldPath As String
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xTmpFolder = xFSO.GetSpecialFolder(2)
xFldPath = xTmpFolder.Path & "\"
For Each xAttachment In SourceItem.Attachments
If IsEmbeddedAttachment(xAttachment) = False Then
xFilePath = xFldPath & xAttachment.Filename
xAttachment.SaveAsFile xFilePath
TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
xFSO.DeleteFile xFilePath
End If
Next
Set xFSO = Nothing
Set xTmpFolder = 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 = 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
Passo 3: Executar a macro VBA
1. Pressione F5 ou clique no botão Executar para executar a macro.
2. Na caixa de diálogo Macros, selecione ThisOutlookSession.RunReplyAllWithAttachments para responder a todos ou selecione ThisOutlookSession.RunReplyWithAttachments para responder a um destinatário. Clique em Executar.
Resultado
A janela de resposta será aberta com todos os anexos originais incluídos. Basta compor sua mensagem e clicar em Enviar.
Prós e Contras do Método VBA:
- ✅ Automatizado: Não há necessidade de copiar e colar anexos manualmente.
- ❌ Requer Conhecimento de VBA : Pode não ser amigável para iniciantes.
- ❌ Macros estão desativadas por padrão : Você deve ativá-las manualmente.
Conclusão: Qual Método Você Deve Escolher?
Aqui está uma comparação dos três métodos para ajudar você a decidir qual é o mais adequado às suas necessidades:
| Método | Melhor Para | Facilidade de Uso | Eficiência |
|---|---|---|---|
| Cópia-Colagem Manual | Uso ocasional | ⭐⭐⭐⭐ | ⭐⭐ |
| Kutools para Outlook | Uso diário, usuários não técnicos | ⭐⭐⭐⭐⭐ | ⭐⭐⭐⭐⭐ |
| Macro VBA | Amantes da automação, usuários avançados | ⭐⭐⭐ | ⭐⭐⭐⭐ |
Para a maioria dos usuários, Kutools para Outlook é a melhor opção, pois é a maneira mais rápida e fácil de responder com anexos no Outlook. Agora, você pode responder facilmente com anexos no Outlook usando o método que melhor se adapta ao seu fluxo de trabalho! 🚀
Demonstração: Um clique para responder com anexos com Kutools para Outlook
Artigos relacionados:
- Como manter os anexos ao responder no Outlook?
- Como salvar todos os anexos de múltiplos e-mails para uma pasta no Outlook?
- Como remover todos os anexos de um e-mail no Outlook?
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint