Como configurar o Outlook para abrir automaticamente todos os e-mails recebidos de uma pessoa específica?

No nosso dia a dia, é comum recebermos uma grande quantidade de e‑mails no Outlook — e, nesse cenário, podemos acabar por ignorar mensagens importantes de um remetente específico. Para garantir que não perca nenhum e‑mail essencial dessa pessoa, pode configurar o Outlook para abrir automaticamente essas mensagens assim que forem recebidas. Neste artigo, apresento um código VBA que abre automaticamente todos os e‑mails provenientes de um remetente específico.

Abrir automaticamente todos os e-mails recebidos de uma pessoa específica com código VBA

---

Abrir automaticamente todos os e-mails recebidos de uma pessoa específica com código VBA

Para abrir automaticamente os e-mails de uma pessoa específica, o código VBA seguinte pode ajudá-lo. Siga estes passos:

1. Mantenha premidas 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 ThisOutlookSession no painel Project1 (VbaProject.OTM) para abrir o módulo e, em seguida, copie e cole o seguinte código no módulo em branco.

Código VBA: Abrir automaticamente todos os e-mails de uma pessoa específica:

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

Nota: No código acima, pode substituir os endereços dos remetentes pelos seus próprios.

3. Em seguida, guarde e feche esta janela de código. Reinicie o Outlook para que o código entre em vigor. A partir de agora, sempre que chegarem e-mails das pessoas que especificou, estes serão abertos automaticamente. Veja a imagem: