Come aprire automaticamente tutte le e-mail in arrivo da una persona specifica in Outlook?

Nel nostro lavoro quotidiano, forse ci sono molte email in arrivo nel nostro Outlook, in questo caso potresti ignorare alcune email importanti da una persona specifica. Per evitare di perdere alcune e-mail importanti da qualcuno, puoi fare in modo che le e-mail si aprano automaticamente quando arrivi in Outlook. In questo articolo, introdurrò un codice VBA per l'apertura di tutte le email provenienti da un mittente specifico.

Apri automaticamente tutte le email in arrivo da una persona specifica con il codice VBA

Apri automaticamente tutte le email in arrivo da una persona specifica con il codice VBA

Per aprire automaticamente le e-mail di una persona specifica, il seguente codice VBA può aiutarti, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: apri automaticamente tutte le e-mail di una persona specifica:

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 apre le email dal mittente 1

Note:: Nel codice sopra, puoi cambiare gli indirizzi dei mittenti con i tuoi.

3. Quindi, salva e chiudi questa finestra del codice. Riavvia Outlook per rendere effettivo il codice, d'ora in poi, quando le email in arrivo dalle persone che hai specificato, si apriranno tutte automaticamente. Vedi screenshot:

doc apre le email dal mittente 2