Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս նշել հատուկ օրերից ավելի հին չընթերցված էլ.փոստերը, որոնք ավտոմատ կերպով կարդում են Outlook- ում:

Եթե ​​ձեր Մուտքի արկղի թղթապանակում կան բազմաթիվ անընթերցված էլ. Նամակներ, սովորաբար, կարող եք կիրառել «Նշել բոլորը որպես ընթերցված» հատկությունը ՝ բոլոր չընթերցված նամակները ձեռքով նշելու համար: Բայց երբևէ փորձե՞լ եք նշել, որ հատուկ օրերից ավելի հին ընթերցված էլ.փոստերը ավտոմատ կերպով ընթերցվեն Outlook- ում ՝ առանց այն ամեն անգամ ձեռքով կարգավորելու:

Հատուկ օրերից հին չընթերցված էլ.փոստերը նշեք որպես VBA կոդով ինքնաբերաբար կարդացված


Հատուկ օրերից հին չընթերցված էլ.փոստերը նշեք որպես VBA կոդով ինքնաբերաբար կարդացված

Հատուկ օրերից հին բոլոր չընթերցված էլ.փոստերը ավտոմատ կերպով նշելու համար, որպես կարդացված, հետևյալ VBA կոդը կարող է ձեզ լավություն բերել.

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

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

VBA կոդ. Հատուկ օրերից ավելի հին ընթերցված էլ.փոստերը ավտոմատ նշեք, ինչպես կարդացվում է.

Private Sub Application_Startup()
        Call MarkOldUnreadEmailsAsRead
    End Sub
    Private Sub MarkOldUnreadEmailsAsRead()
    Dim xInboxFld As Outlook.Folder
    Dim xAccount As Account
    On Error GoTo L1
    For Each xAccount In Outlook.Application.Session.Accounts
        Set xInboxFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
        Call Processfolders(xInboxFld)
    Next xAccount
L1:     Exit Sub
    End Sub
    Private Sub Processfolders(ByVal InboxFld As Outlook.Folder)
    Dim xItems As Outlook.Items
    Dim i As Long
    Dim xSubFld As Outlook.Folder
    On Error Resume Next
    Set xItems = InboxFld.Items
    For i = 1 To xItems.Count
        If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then
           If xItems(i).UnRead = True Then
              xItems(i).UnRead = False
              xItems(i).Save
           End If
        End If
    Next
    If InboxFld.Folders.Count > 0 Then
       For Each xSubFld In InboxFld.Folders
           Call Processfolders(xSubFld)
       Next
    End If
End Sub

ՆշումՎերոնշյալ կոդում դուք կարող եք փոխել այս սկրիպտի օրերի քանակը. Եթե ​​DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Ապա ձեր սեփական կարիքներին:

3. Այնուհետև պահեք և փակեք այս ծածկագրի պատուհանը, այդ ժամանակվանից ամեն անգամ, երբ գործարկում եք Outlook-ը, բոլոր չկարդացված նամակները, որոնք ավելի հին են, քան նախապես սահմանված օրերը, միանգամից կնշվեն որպես կարդացված:

ՆշումԱյս կոդը հասանելի է միայն կանխադրված տվյալների հաշվին:


Գրասենյակի արտադրողականության լավագույն գործիքները

Outlook- ի համար նախատեսված գործիքներ - Ավելի քան 100 հզոր գործառույթ՝ ձեր Outlook-ը լիցքավորելու համար

🤖 AI Փոստի օգնական: Ակնթարթային պրոֆեսիոնալ նամակներ AI մոգությամբ. մեկ սեղմումով հանճարեղ պատասխաններ, կատարյալ հնչերանգներ, բազմալեզու վարպետություն: Փոխակերպեք էլ. փոստը առանց ջանքերի: ...

📧 Email ավտոմատացում: Գրասենյակից դուրս (հասանելի է POP-ի և IMAP-ի համար)  /  Ժամանակացույց ուղարկել նամակներ  /  Ավտոմատ CC/BCC էլփոստ ուղարկելիս կանոններով  /  Ավտոմատ փոխանցում (Ընդլայնված կանոններ)   /  Ավտոմատ ավելացնել ողջույնները   /  Ավտոմատ կերպով բաժանել բազմասերիստացող նամակները առանձին հաղորդագրությունների ...

📨 էլեկտրոնային կառավարման: Հեշտությամբ հիշեք նամակները  /  Արգելափակել խարդախության նամակները ըստ առարկաների և այլոց  /  Deleteնջել կրկնօրինակ նամակները  /  Ընդլայնված որոնում  /  Համախմբել Թղթապանակները ...

📁 Հավելվածներ ProԽմբաքանակի պահպանում  /  Խմբաքանակի անջատում  /  Խմբաքանակային կոմպրես  /  Auto Save- ը   /  Ավտոմատ անջատում  /  Ավտոմատ սեղմում ...

🌟 Ինտերֆեյս Magic: 😊Ավելի գեղեցիկ և զով էմոջիներ   /  Բարձրացրեք ձեր Outlook-ի արտադրողականությունը ներդիրներով դիտումների միջոցով  /  Նվազագույնի հասցնել Outlook-ը փակելու փոխարեն ...

???? Մեկ սեղմումով Հրաշքներ: Պատասխանել բոլորին մուտքային հավելվածներով  /   Հակաֆիշինգի էլ. նամակներ  /  🕘Ցուցադրել ուղարկողի ժամային գոտին ...

👩🏼‍🤝‍👩🏻 Կոնտակտներ և օրացույց: Խմբաքանակի ավելացրեք կոնտակտներ ընտրված էլ  /  Կոնտակտային խումբը բաժանեք առանձին խմբերի  /  Հեռացնել ծննդյան հիշեցումները ...

Over 100 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար:

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I modify the code to target a specific folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations