Ինչպե՞ս Outlook- ում ավտոմատ կերպով բացել որոշակի մուտքից ստացված բոլոր նամակները:

Մեր ամենօրյա աշխատանքում, միգուցե, մեր Outlook- ին են հասնում բազմաթիվ նամակներ, այս դեպքում դուք կարող եք անտեսել որոշակի անձի որոշ կարևոր էլ-նամակներ: Որպեսզի ինչ-որ մեկից որևէ կարևոր էլ-նամակ չկորցնեք, ձեր Outlook մուտք գործելիս էլփոստերը կարող եք ավտոմատ կերպով բացել: Այս հոդվածում ես կներկայացնեմ VBA կոդ ՝ հատուկ ուղարկողի կողմից ուղարկված բոլոր էլ. Փոստերը բացելու համար:

Բացեք բոլոր մուտքային էլփոստերը VBA կոդով ինքնաբերաբար ձևավորում են որոշակի անձ

Բացեք բոլոր մուտքային էլփոստերը VBA կոդով ինքնաբերաբար ձևավորում են որոշակի անձ

Հատուկ անձի էլ-նամակները ավտոմատ կերպով բացելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք ԱյսOutlookSession- ը - ից Project1 (VbaProject.OTM) ռեժիմը բացելու պատուհանը, այնուհետև պատճենեք և կպցրեք հետևյալ կոդը դատարկ մոդուլի մեջ:

VBA կոդ. Ավտոմատ բացեք հատուկ անձի բոլոր էլփոստերը.

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

փաստաթուղթ բաց նամակներ ուղարկողի կողմից 1

ՆշումՎերոհիշյալ ծածկագրում կարող եք փոխել ուղարկողների հասցեները ձեր սեփական հասցեով:

3, Ապա պահեք և փակեք այս կոդի պատուհանը: Վերագործարկեք Outlook- ը ՝ կոդն ուժի մեջ մտնելու համար, այսուհետ, երբ ձեր կողմից նշված անձանցից ստացված նամակները, բոլորը կբացվեն ինքնաբերաբար: Տեսեք,

փաստաթուղթ բաց նամակներ ուղարկողի կողմից 2