Como eliminar o rascunho atualmente em edição sem apagar a mensagem original no Outlook?
O Microsoft Outlook 2013 e versões posteriores abrem respostas a mensagens no painel de leitura por predefinição. Imagine que está a responder a uma mensagem e, após 3 minutos, o Outlook guarda automaticamente essa resposta como um rascunho. Mais tarde, decide não enviar a resposta e eliminar o rascunho. Alguns utilizadores do Outlook tendem a clicar no botão **Eliminar**, no separador **Base**, para remover o rascunho diretamente do Painel de Leitura (ver imagem abaixo). Contudo, esta ação elimina também a mensagem original.
Neste tutorial, disponibilizamos dois códigos VBA que lhe permitem adicionar dois comandos à Barra de Acesso Rápido, para eliminar rapidamente o rascunho atualmente em edição sem afetar a mensagem original no Outlook.
Eliminar o rascunho atualmente editado no painel de leitura
Eliminar o rascunho atualmente editado numa nova janela
Eliminar o rascunho atualmente editado no painel de leitura
Se costuma responder a mensagens no painel de leitura, pode utilizar o seguinte código VBA para eliminar o rascunho que está atualmente a editar sem apagar a mensagem original no Outlook.
1. Inicie o seu Outlook e prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em Project1 > Objetos do Microsoft Outlook > ThisOutlookSession para abrir a janela ThisOutlookSession (Código). Depois, copie o seguinte código VBA para a janela de Código.
Código VBA: Eliminar 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 Sub3. Guarde o código e prima as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.
Agora 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, configure da seguinte forma.
6. Mantenha o script selecionado na caixa à direita e 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 guardar as alterações.
O botão que especificou no passo 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 uma mensagem no painel de leitura, pode eliminar a resposta juntamente com o rascunho ao clicar no botão da Barra de Acesso Rápido.
Nota: Após executar o script, terá de selecionar outra mensagem na Lista de Emails para atualizar a vista das mensagens na Pasta Atual.
Assistente de E-mail com IA no Outlook: Respostas mais inteligentes, comunicação mais clara (magia com um só clique!)
Simplifique as suas tarefas diárias no Outlook com o Assistente de E-mail com IA do Kutools para Outlook. Esta ferramenta inteligente aprende com os seus e-mails anteriores para sugerir respostas precisas, otimizar o conteúdo das suas mensagens e ajudá-lo a redigir e aperfeiçoar textos com facilidade.
Esta funcionalidade suporta:
- Respostas Inteligentes: Obtenha respostas elaboradas com base nas suas conversas anteriores — personalizadas, precisas e prontas a usar.
- Conteúdo Aprimorado: Refine automaticamente o texto dos seus e-mails para garantir maior clareza e impacto.
- Redação sem esforço: basta indicar palavras-chave e deixe que a IA trate do resto, com múltiplos estilos de escrita.
- Extensões Inteligentes: potencie as suas ideias com sugestões sensíveis ao contexto.
- Resumo: Obtenha instantaneamente uma visão clara e concisa de e-mails longos.
- Alcance Global: Traduza os seus e-mails para qualquer idioma com facilidade.
Esta funcionalidade suporta:
- Respostas inteligentes por e-mail
- Conteúdo otimizado
- Rascunhos baseados em palavras-chave
- Extensão inteligente de conteúdo
- Resumo de e-mails
- Tradução multilíngue
Não espere—descarregue já o Assistente de E-mail com IA e desfrute!
a name="a2"> Eliminar o rascunho atualmente editado numa nova janela
Se preferir responder a mensagens numa nova janela, o seguinte código VBA pode ajudá-lo a eliminar facilmente a mensagem de resposta juntamente com o rascunho no Outlook.
1. Inicie o seu Outlook e prima as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo. Depois, copie o seguinte código VBA para a janela do 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 Sub3. Prima as teclas Alt + F11 para fechar a janela do Microsoft Visual Basic for Applications.
Agora precisa de um botão para executar a macro.
4. Clique em Base > Novo Email para criar um novo e-mail. Na janela da mensagem, clique em Personalizar Barra de Acesso Rápido > Mais Comandos.
5. Em seguida, repita os passos acima de 5 a 7 para criar um botão para o script e adicioná-lo à Barra de Acesso Rápido da janela da mensagem.
A partir de agora, ao responder a uma mensagem numa nova janela de mensagem, pode eliminar essa resposta juntamente com o rascunho ao clicar no botão da Barra de Acesso Rápido.
Melhores Ferramentas de Produtividade para o Office
Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!
📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...
📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...
📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...
🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...
👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...
👩🏼🤝👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...
Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!
🚀 Transferência com um Clique — Obtenha Todos os Extras do Office
Altamente Recomendado: Kutools for Office (5 em 1)
Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!
- ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
- 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
- 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint