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

O Microsoft Outlook 2013 e versões posteriores abrem as respostas de email no painel de leitura por padrão. Suponha que você esteja respondendo a um e-mail e, após 3 minutos, o Outlook salva automaticamente a resposta como rascunho. Mas então você decide não enviar esta resposta e exclui o rascunho junto com ela. Alguns usuários do Outlook tendem a clicar no botão Excluir na guia Página Inicial 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 Ferramentas de Acesso Rápido para excluir rapidamente o rascunho editado no momento 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ê estiver acostumado a responder a emails no painel de leitura, poderá aplicar o seguinte código VBA para excluir o rascunho editado no momento sem excluir o email original no Outlook.

1. Inicie o Outlook, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo Project1 > Objetos do Microsoft Outlook > Esta sessão do Outlook para abrir o ThisOutlookSession (Código) janela. 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 o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.

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

4. Clique Personalize a barra de ferramentas de acesso rápido > Mais comandos.

5. No Opções do Outlook caixa de diálogo, você precisa configurar da seguinte maneira.

5.1) No Escolha comandos de lista suspensa, selecione macros;

5.2) Selecione a macro que você adicionou na etapa anterior;

5.3) Clique no Adicionar botão para adicionar esta macro ao Personalize a barra de ferramentas de acesso rápido caixa.

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

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

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

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

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

Observação: Depois de executar o script, você precisa selecionar outro e-mail na lista de e-mail para atualizar a visualização de e-mail na pasta atual.

Excluir o rascunho atualmente editado em uma nova janela

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

1. Inicie o Outlook, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > 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. aperte o outro + F11 para fechar o Microsoft Visual Basic para Aplicações janela.

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

4. Clique Home page > Novo Email para criar um novo e-mail. Na janela de mensagem, clique em Personalize a barra de ferramentas 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 adicione-o ao Barra de Ferramentas de Acesso Rápido da janela de mensagem.

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