Խմբաքանակի երկու եղանակ ՝ բոլոր ամսաթվերի նամակները նշելու համար, քան որոշակի ամսաթվով ավելի հին են, ինչպես կարդացել են

Բազմաթիվ հին էլ.փոստեր Outlook- ում ներմուծելուց հետո, և այս էլ.փոստերը գտնվում են «չկարդացված» կարգավիճակում, դուք պետք է ցանկանաք խմբաքանակով նշել դրանք որպես կարդացված: Այժմ, այս հոդվածում մենք ձեզ ցույց կտանք 2 արագ մեթոդ:

Timesամանակ առ ժամանակ ձեզ կարող է անհրաժեշտ լինել խմբաքանակ նշել բազմաթիվ նամակներ, ինչպես կարդացել են: Օրինակ, դուք ունեք հին PST ֆայլ, որը պարունակում է բազմաթիվ հին էլ-նամակներ: Դրանից հետո էլ-նամակները ներմուծում եք ձեր սեփական Outlook PST ֆայլում: Այնուամենայնիվ, ներմուծելուց հետո այս էլ-նամակները ցուցադրվում են որպես «Չկարդացված» լռելյայն: Այս պահին դուք կցանկանայիք խմբաքանակ նշել նշված ամսաթվից ավելի հին այս նամակները, ինչպես կարդացել են: Այստեղ մենք կանդրադառնանք երկու հարմար և արդյունավետ մոտեցումներ կիսելու այս պահանջին:

Մեթոդ 1. Խմբաքանակի նշանը գտել է էլ.փոստերը ՝ որպես ձեռքով կարդացված

1. Սկսելու համար բացեք փոստի թղթապանակը։
2. Դրանից հետո կտտացրեք որոնման տուփին:
3. Հաջորդը, «Որոնում» ժապավենում կտտացրեք «Ոլորտ» խմբի «Բոլոր փոստի տարրերը» կոճակին:
4. Դրանից հետո որոնման դաշտում մուտքագրեք «ուղարկված ՝ <= 2018/5/21» չափանիշները: «2018/5/12» - ը փոխեք ձեր ցանկալի ամսաթվով:
5. Երբ որոնումն ավարտվում է, ընտրեք բոլոր հայտնաբերված փոստի իրերը «Ctrl + A» - ի միջոցով:
6. Ի վերջո, աջ սեղմեք և ընտրեք «Նշել գովազդը որպես ընթերցված» տարբերակը:

Մեթոդ 2. Հատուկ ամսաթվից ավելի հին խմբաքանակների նշումներ, ինչպես կարդում են VBA- ն

1. Սկսելու համար, գործարկեք VBA խմբագիրը Outlook- ում `համաձայն«Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
2. Դրանից հետո պատճենեք հետևյալ կոդը մոդուլի մեջ:

Dim dDate As Date

Sub MarkEmailsOlderThanSpecificDateRead()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    dDate = InputBox("Enter the specific date:", , "2018/5/11")
 
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objSubfolder As Outlook.Folder
 
    For Each objItem In objCurFolder.Items
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
 
           If objMail.SentOn <= dDate Then
              If objMail.UnRead = True Then
                 objMail.UnRead = False
                 objMail.Save
              End If
           End If
        End If
    Next
 
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

3. Դրանից հետո սեղմեք «F5» ստեղնը ՝ այս մակրոը հենց հիմա գործարկելու համար:
4. Ավելի ուշ, փոքր ելնող երկխոսության դաշտում մուտքագրեք կոնկրետ ամսաթիվը և սեղմեք «OK»:
5. Ի վերջո, կոնկրետ ամսաթվից հին բոլոր էլփոստերը նշվելու են որպես կարդացածներ:

Վերականգնել կոմպրոմիսային Outlook ֆայլը

Outlook PST ֆայլերը կարող են վնասվել այն բանից հետո, երբ Outlook- ը անսպասելիորեն բախվում է այս ու այն ժամանակ: Եթե ​​ունեք նորացված պահուստավորում, կարող եք պարզապես վերականգնել Outlook- ը տվյալներ ձեր պահուստային տարբերակով: Հակառակ դեպքում ձեզ այլ բան չի մնում, քան փնտրել մասնագիտացված փորձագետ կամ օգտակար ծառայություն, ինչպես, օրինակ DataNumen Outlook Repair Outlook ֆայլը վերանորոգելու համար:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում mdf շտկել և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com