Como copiar os nomes de todos os anexos ao responder no Outlook?
Ao responder um e-mail RTF (formatado como Rich Format) no Outlook, ele irá copiar todos os nomes dos anexos e colar no corpo da mensagem automaticamente (veja a imagem abaixo). No entanto, ao responder um e-mail em HTML no Outlook, faltam anexos no e-mail de resposta. Aqui, este artigo irá apresentar alguns métodos para copiar o nome de todos os anexos ao responder e-mails, ou diretamente nos e-mails recebidos.
- Copie os nomes de todos os anexos ao responder alterando e-mail em HTML para RTF
- Copie os nomes de todos os anexos ao responder com VBA
- Copie todos os nomes de anexo ao responder com uma ferramenta incrível
Copie os nomes de todos os anexos ao responder com a alteração de HTML para RTF
Se tivermos convertido o e-mail HTML para RTF antes de responder, todos os nomes dos anexos serão copiados para a mensagem de resposta após clicar em Início> Responder no Outlook.
1. Clique duas vezes para abrir o e-mail cujos nomes de anexos você precisa copiar e clique em Mensagem > Ações > Editar Mensagem na janela de mensagem. Veja a imagem:
2. Vá em frente para clicar Formatar Texto > rich Text, salve e feche o e-mail.
3. Agora você retorna à visualização principal. Continue selecionando o e-mail e clique em Página Inicial > Responder.
4. Agora, os nomes de todos os anexos são copiados do e-mail original e colados na mensagem de resposta conforme a captura de tela abaixo. Por favor, escreva a mensagem de resposta e envie-a.
Copie os nomes de todos os anexos ao responder com VBA
Este método apresentará uma macro VBA para copiar os nomes de todos os anexos ao responder um e-mail e, em seguida, colar os nomes no corpo da mensagem do e-mail de resposta no Outlook.
1. pressione outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications.
2. No Explorador de Projetos esquerdo, expanda o Projeto 1, clique duas vezes para abrir o ThisOutlookSession janela (veja a captura de tela abaixo) e, em seguida, cole o código abaixo na janela.
VBA: Copie o nome de todos os anexos ao responder um e-mail no Outlook
Option Explicit Private WithEvents oExpl As Explorer Private WithEvents oItem As MailItem Private bAttachEvent As Boolean Private Sub Application_Startup() Set oExpl = Application.ActiveExplorer bAttachEvent = False End Sub Private Sub oExpl_SelectionChange() On Error Resume Next Set oItem = oExpl.Selection.Item(1) End Sub ' Reply Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean) Dim oAtt As Attachment Dim sAtts As String Dim olInspector As Outlook.Inspector Dim olDocument As Word.Document Dim olSelection As Word.Selection If bAttachEvent Or oItem.Attachments.Count = 0 Then Exit Sub End If Cancel = True bAttachEvent = True sAtts = "" For Each oAtt In oItem.Attachments sAtts = sAtts & "<<" & oAtt.FileName & ">> " Next oAtt Dim oResponse As MailItem Set oResponse = oItem.Reply oResponse.Display Set olInspector = Application.ActiveInspector() Set olDocument = olInspector.WordEditor Set olSelection = olDocument.Application.Selection olSelection.InsertBefore sAtts bAttachEvent = False Set oItem = Nothing End Sub ' Reply All Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean) Dim oAtt As Attachment Dim sAtts As String Dim olInspector As Outlook.Inspector Dim olDocument As Word.Document Dim olSelection As Word.Selection If bAttachEvent Or oItem.Attachments.Count = 0 Then Exit Sub End If Cancel = True bAttachEvent = True sAtts = "" For Each oAtt In oItem.Attachments sAtts = sAtts & "<<" & oAtt.FileName & ">> " Next oAtt Dim oResponse As MailItem Set oResponse = oItem.ReplyAll oResponse.Display Set olInspector = Application.ActiveInspector() Set olDocument = olInspector.WordEditor Set olSelection = olDocument.Application.Selection olSelection.InsertBefore sAtts bAttachEvent = False Set oItem = Nothing End Sub
3. Clique Ferramentas > Referências.
4. Na janela de abertura Referências - Projeto 1 para Outlook 2016, verifique o Biblioteca de objetos do Microsoft Word 16.0 referência na caixa Referências disponíveis e clique no OK botão. Veja a imagem:
Importante: Selecione o Biblioteca de objetos do Microsoft Word 15.0 referência se você estiver trabalhando com Outlook 2013, ou Biblioteca de objetos do Microsoft Word 14.0 referência com Outlook 2010.
5. Salve o VBA e feche a janela Microsoft Visual Basic for Applications.
6. Agora você retorna à interface principal do Outlook. Selecione o e-mail que você irá responder e clique em Página Inicial > Responder or Responder todos.
Importante: Se os nomes dos anexos não forem copiados e colados no e-mail de resposta, reinicie o Outlook e responda novamente.
E agora todos os nomes dos anexos são copiados do e-mail selecionado e colados no e-mail de resposta. Veja a imagem:
Copie todos os nomes de anexo ao responder com uma ferramenta incrível
Se você tem Kutools para Outlook instalado, você pode aplicar seu Copiar nomes recurso para copiar rapidamente todos os nomes de anexo de um e-mail recebido e, em seguida, colar sua mensagem de resposta facilmente no Outlook.
Kutools para Outlook: Adicione mais de 100 ferramentas úteis para Outlook, grátis para testar sem limitação em 60 dias. Saiba mais Teste grátis agora
1. Selecione o e-mail que você irá responder e clique em Kutools > Ferramentas de Anexo > Copiar nomes.
Em seguida, uma caixa de diálogo é exibida e informa que os nomes dos anexos foram copiados para a área de transferência. Clique OK para fechá-lo.
2. Vá em frente para clicar Página Inicial > Responder para responder ao e-mail selecionado.
3. Na janela da mensagem de resposta, coloque o cursor no corpo da mensagem e pressione Ctrl + V teclas para colar os nomes dos anexos facilmente.
Responda facilmente e-mails selecionados com todos os anexos originais mantidos no Outlook
Em geral, os anexos originais são removidos ao responder um e-mail no Outlook. Mas, com fantástico Responder com anexo recurso do Kutools para Outlook, você pode facilmente manter todos os anexos de e-mails ao respondê-los no Outlook.
Clique para teste gratuito de 60 dias sem limitação!
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.


You are guest
or post as a guest, but your post won't be published automatically.
Be the first to comment.