Hvordan åbnes alle indgående e-mails fra en bestemt person automatisk i Outlook?

I vores daglige arbejde er der måske mange e-mails, der ankommer til vores Outlook. I dette tilfælde kan du ignorere nogle vigtige e-mails fra en bestemt person. For at undgå at gå glip af nogle vigtige e-mails fra nogen, kan du lade e-mails åbne automatisk, når du ankommer til din Outlook. I denne artikel vil jeg introducere en VBA-kode til åbning af alle e-mails fra en bestemt afsender.

Åbn alle indgående e-mails fra en bestemt person automatisk med VBA-kode

Åbn alle indgående e-mails fra en bestemt person automatisk med VBA-kode

For automatisk at åbne e-mails fra en bestemt person kan følgende VBA-kode hjælpe dig, gør som dette:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.

VBA-kode: Åbn automatisk alle e-mails fra en bestemt person:

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 åbne e-mails af afsender 1

Bemærk: I ovenstående kode kan du ændre adresserne på afsenderne til dine egne.

3. Gem derefter og luk dette kodevindue. Genstart Outlook for at få koden til at træde i kraft, fra nu af når e-mails, der ankommer fra de personer, du har angivet, vil alle åbne automatisk. Se skærmbillede:

doc åbne e-mails af afsender 2