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

No nosso trabalho diário, pode ser que cheguem muitos emails ao Outlook, neste caso, pode ignorar alguns emails importantes de uma determinada pessoa. Para evitar perder alguns e-mails importantes de alguém, você pode fazer com que os e-mails abram automaticamente ao chegar ao Outlook. Neste artigo, apresentarei um código VBA para abrir todos os e-mails de um remetente específico.

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

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

Para abrir automaticamente os e-mails de uma pessoa específica, o seguinte código VBA pode ajudá-lo, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook do Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: abre 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 = ";"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

doc abrir e-mails pelo remetente 1

Note: No código acima, você pode alterar os endereços dos remetentes para os seus.

3. Em seguida, salve e feche esta janela de código. Reinicie o Outlook para que o código tenha efeito, a partir de agora, quando chegarem os e-mails das pessoas que especificou, todos eles serão abertos automaticamente. Veja a imagem:

doc abrir e-mails pelo remetente 2