Hogyan nyitható meg automatikusan egy adott személytől érkező összes e-mail az Outlookban?

A mindennapi munkánk során talán sok e-mail érkezik az Outlook-ba, ebben az esetben figyelmen kívül hagyhat egy adott személy fontos e-mailjeit. Annak elkerülése érdekében, hogy valaki fontos e-maileket hiányoljon, beállíthatja, hogy az e-mailek automatikusan megnyíljanak, amikor az Outlookba érkeznek. Ebben a cikkben bemutatok egy VBA kódot az összes e-mail megnyitásához, amelyek egy adott feladótól származnak.

Nyissa meg az összes bejövő e-mailt egy adott személytől automatikusan VBA kóddal

Nyissa meg az összes bejövő e-mailt egy adott személytől automatikusan VBA kóddal

Egy adott személy e-mailjeinek automatikus megnyitásához a következő VBA-kód segíthet, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Az Microsoft Visual Basic for Applications ablakban kattintson duplán ThisOutlookSession tól Project1 (VbaProject.OTM) ablaktáblán nyissa meg a módot, majd másolja és illessze be a következő kódot az üres modulba.

VBA-kód: Egy adott személy összes e-mailének automatikus megnyitása:

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 nyitott e-maileket küldő által 1

Megjegyzések: A fenti kódban megváltoztathatja a küldők címét sajátra.

3. Ezután mentse el és zárja be ezt a kódablakot. Indítsa újra az Outlook programot, hogy a kód életbe lépjen. Mostantól, amikor az Ön által megadott személyektől érkező e-mailek automatikusan megnyílnak. Lásd a képernyőképet:

doc nyitott e-maileket küldő által 2