Skip to main content

Como excluir o rascunho atualmente editado sem excluir o email original no Outlook?

Author: Siluvia Last Modified: 2025-06-04

O Microsoft Outlook 2013 e versões posteriores abrem respostas de email no painel de leitura por padrão. Suponha que você esteja respondendo a um email e, após 3 minutos, o Outlook salve automaticamente a resposta como um rascunho. Mas então você decide não enviar essa resposta e exclui o rascunho junto com ela. Alguns usuários do Outlook tendem a clicar no botão Excluir na guia Início para excluir o rascunho do Painel de Leitura (veja a captura de tela abaixo). Mas essa ação também exclui o email original.

delete the currently edited draft without deleting the original email in Outlook

Neste tutorial, fornecemos dois códigos VBA para ajudá-lo a adicionar dois comandos na Barra de Acesso Rápido para excluir rapidamente o rascunho atualmente editado sem excluir o email original no Outlook.

Excluir o rascunho atualmente editado no painel de leitura
Excluir o rascunho atualmente editado em uma nova janela


Excluir o rascunho atualmente editado no painel de leitura

Se você está acostumado a responder emails no painel de leitura, pode aplicar o seguinte código VBA para excluir o rascunho atualmente editado sem excluir o email original no Outlook.

1. Abra seu Outlook, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique duas vezes em Project1 > Microsoft Outlook Objects > ThisOutlookSession para abrir a janela ThisOutlookSession (Código). Em seguida, copie o seguinte código VBA para a janela Código.

delete the currently edited draft without deleting the original email in Outlook

Código VBA: Excluir o rascunho atualmente editado no painel de leitura

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub
Sub InlineDiscard()
  On Error Resume Next
  If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
    GInlineMail.UnRead = False
    GInlineMail.Delete
  End If
  Set GInlineMail = Nothing
End Sub

3. Salve o código e pressione as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.

Agora você precisa de um botão para executar a macro.

4. Clique em Personalizar Barra de Acesso Rápido > Mais Comandos.

delete the currently edited draft without deleting the original email in Outlook

5. Na caixa de diálogo Opções do Outlook, você precisa configurar conforme segue.

5.1) Na lista suspensa Escolher comandos de, selecione Macros;
5.2) Selecione a macro que você adicionou na etapa anterior;
5.3) Clique no botão Adicionar para adicionar esta macro à caixa Personalizar Barra de Acesso Rápido.
delete the currently edited draft without deleting the original email in Outlook

6. Mantenha o script selecionado na caixa à direita e, em seguida, clique no botão Modificar. Na caixa de diálogo Modificar Botão, atribua um novo botão ao script e clique em OK.

delete the currently edited draft without deleting the original email in Outlook

7. Clique em OK na caixa de diálogo Opções do Outlook para salvar as alterações.

O botão que você especificou na etapa 6 é então adicionado à Barra de Acesso Rápido.

delete the currently edited draft without deleting the original email in Outlook

8. Reinicie o Outlook para ativar o código.

A partir de agora, ao responder a um email no painel de leitura, você pode excluir a resposta junto com o rascunho clicando no botão na Barra de Acesso Rápido.

Observação: Após executar o script, você precisa selecionar outro email na lista de correspondência para atualizar a visualização de email na pasta atual.


Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS

Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.
doc ai email handle

Este recurso suporta:

  • Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
  • Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
  • Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
  • Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
  • Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
  • Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.

Este recurso suporta:

  • Respostas inteligentes de e-mail
  • Conteúdo otimizado
  • Rascunhos baseados em palavras-chave
  • Extensão inteligente de conteúdo
  • Resumo de e-mails
  • Tradução multilíngue

O melhor de tudo é que este recurso é completamente grátis para sempre! Não espere — baixe agora o Assistente de E-mail AI e aproveite


Excluir o rascunho atualmente editado em uma nova janela

Se você gosta de responder emails em uma nova janela. O seguinte código VBA pode ajudar a excluir facilmente o email de resposta junto com o rascunho no Outlook.

1. Abra seu Outlook, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo. Em seguida, copie o seguinte código VBA para a janela Módulo.

delete the currently edited draft without deleting the original email in Outlook
Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
  Dim xInspector As Inspector
  Dim xMail As MailItem
  On Error Resume Next
  Set xInspector = Application.ActiveInspector
  If xInspector Is Nothing Then Exit Sub
  Set xMail = xInspector.CurrentItem
  If Not xMail.Sent Then
    xMail.UnRead = False
    xMail.Delete
  End If
End Sub

3. Pressione Alt + F11 para fechar a janela Microsoft Visual Basic for Applications.

Agora você precisa de um botão para executar a macro.

4. Clique em Início > Novo Email para criar um novo email. Na janela da mensagem, clique em Personalizar Barra de Acesso Rápido > Mais Comandos.

5. Em seguida, repita as etapas acima de 5 a 7 para criar um botão para o script e adicioná-lo à Barra de Acesso Rápido da janela de mensagem.

A partir de agora, ao responder a um email em uma nova janela de mensagem, você pode excluir essa resposta junto com o rascunho clicando no botão na Barra de Acesso Rápido.

delete the currently edited draft without deleting the original email in 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!

🤖 Kutools AI : Utiliza tecnologia avançada de IA para gerenciar emails com facilidade, incluindo responder, resumir, otimizar, expandir, traduzir e redigir emails.

📧 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...

Desbloqueie instantaneamente o Kutools para Outlook com um único clique. Não perca tempo, baixe agora e aumente sua produtividade!

kutools for outlook features1 kutools for outlook features2