Ինչպե՞ս նշել հատուկ օրերից ավելի հին չընթերցված էլ.փոստերը, որոնք ավտոմատ կերպով կարդում են 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 Նկարագրություն Սպասեք ձեր հետազոտությանը: Սեղմեք այստեղ՝ ավելին բացահայտելու համար: