Como abrir emails recebidos/enviados no modo “Editar” automaticamente com o Outlook VBA

Para alterar o corpo de um e-mail recebido ou enviado no Outlook, você precisa abri-lo e, em seguida, colocá-lo no modo de edição. Se você costuma fazer alterações nesses e-mails, provavelmente desejará abri-los automaticamente no modo de edição. Este artigo ajudará você a fazer isso.

Às vezes, você pode precisar alterar o conteúdo de um e-mail recebido ou enviado no Outlook. Nesse cenário, como apresentado na postagem anterior – “Como modificar o assunto e o corpo dos e-mails recebidos no Outlook“, você deve abrir o e-mail e clicar no botão “Ações” e escolher “Editar mensagem” para converter o e-mail no modo “Editar”. No entanto, você pode pensar que ainda é um pouco problemático. Portanto, você deseja que o Outlook sempre abra os emails recebidos/enviados no modo “Editar”. A seguir, apresentaremos como usar o código VBA para realizar essa função. Agora continue lendo para obter etapas detalhadas.

Abrir emails recebidos/enviados no modo "Editar" automaticamente

1. Logo no início, com referência a “Como executar o código VBA no seu Outlook“, acesse o editor VBA do Outlook.
2. Em seguida, copie e cole o seguinte código VBA no projeto “ThisOutlookSession”.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

3. Em seguida, clique na macro “Application_Startup” e pressione a tecla “F5”.
4. No momento, feche o editor VBA.
5. Finalmente, você pode tentar. Basta clicar duas vezes em um e-mail recebido ou enviado para abri-lo. Certamente estará no modo “Editar”.

Imune à perda de dados do Outlook

Seu arquivo PST já se tornou inacessível? Na realidade, o arquivo PST do Outlook pode ser corrompido facilmente. Por exemplo, vírus transmitidos por e-mail podem facilmente levar à falha do Outlook e, assim, resultar em corrupção de dados do Outlook. Nesses casos, a primeira resolução que vem à sua mente pode ser ferramenta de reparo da caixa de entrada. Porém, de modo geral, é incapaz de lidar com situações tão graves. Portanto, é sempre recomendável fazer backup de arquivos PST em intervalos regulares, de modo que você possa restaurar dados PST de backups como uma rolha. Caso contrário, você terá que recorrer a uma ferramenta externa especializada, 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