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 os 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 e Demorado)
Responder com Anexos em Um Clique Usando Kutools para Outlook 👍 (Rápido e Sem Esforço)
Responder com Anexos Automaticamente Usando VBA (Técnico e 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 Marcar 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 a 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.
Responder com Anexos em Um Clique Usando Kutools para Outlook 👍
Para uma forma 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.
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!
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.
Pronto! 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 confortáveis com scripts VBA, este método automatiza o processo de responder com anexos. No entanto, ele requer habilitar macros no Outlook e adicionar manualmente o script.
Passo 1: Abra o editor VBA
1. Selecione a mensagem de e-mail à qual deseja responder.
2. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
3. No painel esquerdo, expanda Projeto1 > Objetos do Microsoft Outlook. Dê um duplo clique em ThisOutlookSession para abri-lo.
Passo 2: Insira 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: Execute 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 é necessário 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 ajudá-lo 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 forma mais rápida e fácil de responder com anexos no Outlook. Agora, você pode facilmente responder 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 vários 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 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!
📧 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...
