Come fare in modo che Outlook apra automaticamente tutte le email in arrivo da un determinato mittente?

Nel nostro lavoro quotidiano, la casella di Outlook può riempirsi rapidamente di numerose email, rischiando così di farci ignorare messaggi importanti provenienti da una persona specifica. Per evitare di perdere queste email fondamentali, è possibile configurare Outlook in modo che apra automaticamente tutti i messaggi ricevuti da un determinato mittente non appena arrivano. In questo articolo, vi presenterò un codice VBA per automatizzare l’apertura delle email provenienti da un mittente specifico.

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

---

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

Per aprire automaticamente le email provenienti da una persona specifica, il seguente codice VBA ti sarà d’aiuto. Procedi nel modo seguente:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, fai doppio clic su ThisOutlookSession nel riquadro Project1 (VbaProject.OTM) per aprire il modulo, quindi copia e incolla il seguente codice nel modulo vuoto.

Codice VBA: Apertura automatica di tutte le email da 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 = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

Nota: nel codice riportato sopra, puoi sostituire gli indirizzi dei mittenti con i tuoi.

3. Salva e chiudi questa finestra del codice. Riavvia Outlook affinché il codice abbia effetto: d’ora in poi, ogni volta che arriveranno email dalle persone specificate, verranno aperte automaticamente. Vedi screenshot: