Alguns usuários preferem excluir o e-mail original após respondê-lo, pois a resposta continha as informações do e-mail original. Este artigo irá compartilhar 2 meios rápidos para realizá-lo automaticamente.
Por padrão, o Outlook é configurado para incluir automaticamente a mensagem original na resposta. Nesse caso, muitos usuários gostariam de deletar a mensagem original, deixando apenas a resposta em sua caixa postal. Isso não só pode manter sua caixa de correio em tamanho pequeno, mas também pode deixar seus e-mails em ordem. Se você está relutante em excluir os e-mails originais manualmente, pode usar os 2 truques a seguir para automatizá-lo.
Dica 1: Use a Etapa Rápida
O Outlook vem com uma etapa rápida nativa “Responder e Excluir”, como na imagem a seguir. Esta etapa rápida pode excluir automaticamente a mensagem original e exibir uma resposta quando você clicar nela.
Se você não conseguir encontrar esta etapa rápida, é muito provável que você a tenha excluído antes por acidente. Você também pode recriá-lo seguindo as etapas abaixo.
- Em primeiro lugar, clique no botão “Criar novo” no grupo “Etapas rápidas”.
- Em seguida, na caixa de diálogo pop-up, atribua um nome a ela, como “Responder e excluir”.
- Em seguida, na seção “Ações”, selecione “Responder”.
- Posteriormente, clique no botão “Adicionar ação”.
- E, em seguida, adicione a ação "Excluir mensagem".
- Por fim, pressione o botão "Salvar".
Dessa forma, você sempre deve usar esta etapa rápida para responder e-mails. Se você ainda deseja utilizar o botão padrão “Responder” no grupo “Responder” para obter “Responder e Excluir”, pode consultar os seguintes meios.
Dica 2: Use o Outlook VBA
- Em primeiro lugar, pressione os botões de tecla “Alt + F11” no Outlook.
- Em seguida, na janela do editor VBA subsequente, abra o projeto “ThisOutlookSession”.
- Em seguida, copie e cole os seguintes códigos VBA nele.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem
Private Sub Application_Startup()
Set objExplorer = Outlook.Application.ActiveExplorer
Set objInspectors = Outlook.Application.Inspectors
End Sub
Private Sub objExplorer_SelectionChange()
On Error Resume Next
If TypeOf Application.ActiveExplorer.Selection.Item(1) Is MailItem Then
Set objMail = Application.ActiveExplorer.Selection.Item(1)
End If
End Sub
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is MailItem Then
Set objMail = Inspector.CurrentItem
End If
End Sub
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
objMail.Delete
'If you want to only delete the specific email when replying it
'You can specify the condition of the email as per your needs
'like the following lines
'If (InStr(LCase(objMail.Subject), "test") > 0) Then
' objMail.Delete
'End If
End Sub
- Depois disso, assine este código digitalmente.
- Além disso, lembre-se de alterar as configurações de macro do Outlook para permitir as macros assinadas digitalmente.
- Por fim, reinicie o Outlook para ativar o novo projeto VBA. A partir de agora, ao responder a um e-mail clicando no botão "Responder", o e-mail original será excluído automaticamente.
Recupere seus dados comprometidos do Outlook
Se você encontrar súbito Danos no Outlook Em caso de imprevistos, você deve tentar recuperar seus dados do Outlook da melhor maneira possível. Como de costume, a melhor e mais simples abordagem é recuperar os dados a partir de backups. Mas, se você não tiver um backup de dados atual, também pode recorrer a uma ferramenta de reparo profissional, como... DataNumen Outlook Repair.
Introdução do autor:
Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperação mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com