Note: The other languages of the website are Google-translated. Back to English
English English

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 para 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 livre 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 Function

Etapa 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 RunReplyWithAttachments, em seguida, clique no Corrida 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.


Responda com anexos automaticamente com o Kutools para Outlook

A vida do Responder com anexo utilidade de Kutools para Outlook pode ajudá-lo a responder e-mails com anexos originais com apenas um clique.

Kutools para 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:


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (24)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Oi equipe, Ele existe uma maneira de executar esta macro usando algumas teclas de atalho no Outlook.
Este comentário foi feito pelo moderador no site
Sim. Nas opções principais, você pode adicionar uma guia de desenvolvedor onde pode encontrar as macros. E, melhor ainda, se você clicar com o botão direito do mouse na faixa na parte superior com todos os botões, eles chamam isso de "fita", você pode adicionar um novo grupo personalizado e exibir suas macros como botões na guia inicial.
Este comentário foi feito pelo moderador no site
Estou tentando usar o Responder com Anexos mas não está adicionando o anexo, apenas mantendo o link. Eu uso a separação automática quando o e-mail é recebido. Existe uma definição de configuração que eu preciso atualizar? Obrigado pela ajuda!
Este comentário foi feito pelo moderador no site
Querida Susan,

Os anexos não serão mais localizados no e-mail, pois serão desanexados automaticamente do e-mail. Desative o recurso de desanexação automática para usar este recurso Responder com anexo.

Atenciosamente, Cristal.
Este comentário foi feito pelo moderador no site
como você desativa o recurso de desanexação automática
Este comentário foi feito pelo moderador no site
Prezada Dakota,

Se você estiver usando o recurso Auto desanexar todos os anexos de recebimento do Kutools for Outlook, faça como a captura de tela abaixo mostrada para desativar esse recurso desmarcando-o em seu Outlook. Obrigada!
Este comentário foi feito pelo moderador no site
Eu baixei a guia Kutools. Posso adicionar a 'Responder com Anexo' à minha guia inicial ou às Etapas Rápidas?
Este comentário foi feito pelo moderador no site
Querido Jim,
Você pode clicar com o botão direito do mouse no botão Responder com anexo e selecionar "Adicionar à barra de ferramentas de acesso rápido" para adicionar essa função à barra de ferramentas de acesso rápido na faixa de opções. Veja captura de tela:
Este comentário foi feito pelo moderador no site
Na última parte do script, muitas das variáveis ​​não estão definidas.
Este comentário foi feito pelo moderador no site
Eu usei o código VBA, mas ele é anexado com todas as imagens (.gif, jpg,...) no conteúdo do email. Pls me mostrar como resolver este problema?
Este comentário foi feito pelo moderador no site
Bom dia,
O código está atualizado no post. O problema agora está resolvido. Por favor, tente e obrigado pelo seu comentário.
Este comentário foi feito pelo moderador no site
Muito bom, obrigado, mas tenho um erro de compilador: Tipo definido pelo usuário não definido. Há destaque Dim xFSO As Scripting.FileSystemObject na parte Sub CopyAttachments
Este comentário foi feito pelo moderador no site
Olá Honza,
O código funciona bem no meu caso. Qual versão do Office você usa?
Este comentário foi feito pelo moderador no site
eu também. Eu tenho o problema com as mesmas pessoas acima. Eu uso o Office 2016.
Este comentário foi feito pelo moderador no site
Estou usando o office 365 com o mesmo erro
Este comentário foi feito pelo moderador no site
Oi Bob,
Tente por favor:
1. Pressione as teclas Alt + F11 para abrir novamente a janela Microsoft Visual Basic for Applications;
2. Clique em Ferramentas > Referências e marque a caixa Microsoft Scripting Runtime.
Agora o código pode funcionar.
Este comentário foi feito pelo moderador no site
Isso resolve para mim!

Obrigado.
Este comentário foi feito pelo moderador no site
Oi!

Muito obrigado por uma ferramenta tão grande!

O comando pode ser executado para que a janela de resposta não apareça, mas permaneça na visualização do painel de leitura?
Este comentário foi feito pelo moderador no site
Olá Alexei,
Lançamos uma nova versão com a ferramenta atualizada. Obrigado pelo seu apoio.
Este comentário foi feito pelo moderador no site
Oi, Cristal!

obrigado pela atualização!
o código da macro foi alterado ou funcionaria apenas com a ferramenta instalada?
Este comentário foi feito pelo moderador no site
Olá Alexei,
O código é usado sozinho sem a ferramenta instalada.
Este comentário foi feito pelo moderador no site
Hi
Vou usar o código para responder a todos os anexos nos resultados da pesquisa de Todas as caixas de correio, mas ele me mostra um erro e não funciona.
por favor, deixe-me saber como alterar o código para ser usado para todas as caixas de correio.

Cumprimentos
Shahrooz
Este comentário foi feito pelo moderador no site
Oi,
O erro não causa pela pesquisa.
Para evitar o erro, clique em Ferramentas > Referências para abrir a caixa de diálogo Referências e ative a opção Microsoft Scripting Runtime. Veja a imagem anexada para as etapas.
Este comentário foi feito pelo moderador no site
Olá, estou usando seu código para resposta, o que é ótimo, obrigado por disponibilizá-lo. Tenho minhas opções de e-mail definidas para prefaciar comentários com minhas iniciais, o que funciona quando uso a resposta padrão. Quando eu crio uma resposta usando este código minhas iniciais não são inseridas Você pode ajudar por favor?ObrigadoSteve
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos