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

