Como excluir o rascunho atualmente editado sem excluir o email original no Outlook?
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.

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.

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.

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

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.

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.

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.

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.

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.

Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!


🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint