Como abrir automaticamente todos os e-mails recebidos de pessoas específicas no Outlook

O Outlook não fornece um recurso para abrir automaticamente todos os emails recebidos de pessoas específicas. Assim, este artigo irá expor tal método para você.

É certo que você não vai querer perder nenhum e-mail de pessoas extremamente importantes, como os e-mails do seu superior. Nesse caso, você pode usar a regra do Outlook para exibir um alerta específico quando esses e-mails chegarem à sua caixa de correio. Além disso, você também pode desejar que o Outlook abra automaticamente esses e-mails. Embora não seja suportado pela regra do Outlook, você ainda pode realizá-lo via Outlook VBA. Agora, a seguir, vamos expor um pedaço de código VBA para te ajudar. Por favor, leia para obtê-lo.

Abrir automaticamente todos os e-mails recebidos de pessoas específicas

1. Para% start com, acesse o editor VBA do Outlook consultando “Como executar o código VBA no seu Outlook".
2. Posteriormente, abra o projeto “ThisOutlookSession” e copie o seguinte código VBA para ele.

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

'Occurs when incoming emails arrive in Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strSenders As String
    Dim varSenders As Variant
    Dim i As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Change the specific persons
       strSenders = "bob_black@datanumen.com; shelly@datanumen.com; kim@datanumen.com"
 
       varSenders = Split(strSenders, ";")
 
       'Open the emails from specific persons
       For i = 0 To UBound(varSenders)
           If objMail.SenderEmailAddress = varSenders(i) Then
              objMail.Display
              Exit For
           End If
       Next
    End If
End Sub

3. Depois disso restart seu aplicativo Outlook para ativar esta macro.
4. Agora, você pode tentar. Basta mover um e-mail de remetentes específicos para a caixa de entrada. Imediatamente, este e-mail será aberto automaticamente em sua própria janela.

Resolva problemas irritantes do Outlook

Desde que você tenha utilizado o Outlook por décadas, é muito provável que você tenha se deparado com diversos erros e problemas. Por exemplo, quando starAo verificar seu Outlook, você recebeu uma mensagem de erro mencionando que seu arquivo PST do Outlook está inacessível. Este erro geralmente indica corrupção de PST. Neste caso, você seria obrigado a corrigir PST arquivo. Pode ser consideravelmente complicado se você usar apenas a ferramenta de reparo da caixa de entrada. No entanto, se você recorrer a uma ferramenta mais poderosa e confiável, como DataNumen Outlook Repair, a tarefa seria muito mais fácil.

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 corrigir sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com