Como manter os anexos ao responder no Outlook?
Quando encaminhamos uma mensagem de e-mail no Microsoft Outlook, os anexos originais dessa mensagem de e-mail permanecem na mensagem encaminhada. No entanto, quando respondemos a uma mensagem de e-mail, os anexos originais não serão anexados na nova mensagem de resposta. Aqui, vamos apresentar alguns truques sobre como manter os anexos originais ao responder no Microsoft Outlook.
Responda com anexos copiando e colando manualmente
Responder com anexos automaticamente pelo VBA
Um clique para responder com anexos com Kutools para Outlook
Responda com anexos copiando e colando manualmente
Podemos copiar manualmente os anexos originais em uma mensagem de e-mail e colá-los na janela Responder Mensagem quando respondermos a mensagem de e-mail posteriormente.
Etapa 1: Clique na mensagem de e-mail para visualizá-la no Painel de Leitura.
Etapa 2: clique com o botão direito em um anexo na mensagem de e-mail de visualização e selecione o Selecionar tudo no menu do botão direito.
Etapa 3: clique com o botão direito nos anexos selecionados e selecione o Copiar no menu do botão direito.
Etapa 4: responda à mensagem de e-mail clicando no Resposta botão no INÍCIO guia (ou na barra de ferramentas do Outlook 2007).
Etapa 5: na janela Mensagem de resposta, clique no macarrão botão no Mensagem guia para colar esses anexos.
Se você estiver usando o Outlook 2013 ou a versão posterior, clique no botão Pop Out no canto superior esquerdo do painel de leitura para liberar a janela de mensagem de resposta. Clique para saber mais…
Etapa 6: redija a mensagem de resposta e clique no botão ENVIAR botão.
Responda e-mails facilmente com anexos originais no Outlook:
Kutools for Outlook's Responder com anexo O utilitário pode ajudá-lo a responder facilmente a um e-mail recebido com seus anexos originais no Outlook. Veja a demonstração abaixo:
Baixe e experimente agora! (trilha gratuita de 60 dias)
Responder com anexos automaticamente pelo VBA
Existe uma macro VBA que pode ajudá-lo a responder automaticamente com anexos originais.
Nota: Antes de executar quaisquer macros VBA, você precisa habilitar macros no Microsoft Outlook.
Etapa 1: Selecione a mensagem de e-mail que você irá responder com seus anexos.
Etapa 2: pressione o outro + F11 para abrir a janela Microsoft Visual Basic for Applications.
Etapa 3: Expanda os Objetos Projeto1 e Microsoft Outlook na barra esquerda e clique duas vezes no Esta sessão do Outlook para abri-lo.
Etapa 4: cole o código a seguir na janela ThisOutlookSession.
Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
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 Scripting.FileSystemObject
Dim xTmpFolder As Scripting.Folder
Dim xFldPath As String
Set xFSO = New 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 = ""
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 FunctionEtapa 5: pressione o F5 chave para executar esta macro. Na abertura Macros caixa de diálogo, clique em ExecutarReplyAllWithAttachments se você quiser responder a todos com anexos. Caso contrário, selecione ExecuteReplyWithAttachments, em seguida, clique no Execute botão.
Em seguida, ele abre a janela Mensagem de resposta com o anexo de todos os anexos originais.
Etapa 6: redija a mensagem de resposta e clique em ENVIAR botão.
Responder com anexos automaticamente com o Kutools para Outlook
A Responder com anexo utilidade de Kutools for Outlook pode ajudá-lo a responder e-mails com anexos originais com apenas um clique.
Kutools for Outlook : com mais de 100 suplementos úteis do Outlook, grátis para experimentar sem limitação em 60 dias.
1. Selecione o e-mail que contém os anexos aos quais você precisa responder.
2. Então clique Kutools > Responder com anexo > Responder com anexo. Veja a imagem:
Então, todos os anexos do e-mail selecionado são listados no Anexado campo da mensagem de resposta. Componha seu e-mail e envie-o.
Se você deseja ter um teste gratuito deste utilitário, vá para baixe gratuitamente o software primeiro e, em seguida, aplique a operação de acordo com as etapas acima.
Um clique para responder com anexos com Kutools para Outlook
Se você quiser ter um teste gratuito (60 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Artigos relacionados:
- Como manter os anexos ao responder no Outlook?
- Como salvar todos os anexos de vários e-mails em uma pasta no Outlook?
- Como remover todos os anexos de e-mail no Outlook?
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.
