Барлық Outlook электрондық пошталарын белгілі бір күннен оқылған етіп белгілеудің екі тәсілі

Outlook бағдарламасына бірнеше ескі хаттарды импорттағаннан кейін және бұл хаттар «оқылмаған» күйде болғаннан кейін, оларды оқылған деп белгілеу қажет. Енді, осы мақалада біз сізге 2 жылдам әдісті көрсетеміз.

Кейде сізге бірнеше электрондық поштаны оқылған деп белгілеу қажет болуы мүмкін. Мысалы, сізде көптеген ескі хаттар бар ескі PST файлы бар. Содан кейін сіз электрондық хаттарды Outlook PST файлына импорттайсыз. Алайда, импортталғаннан кейін, бұл электрондық хаттар әдепкі бойынша «Оқылмаған» ретінде көрсетіледі. Осы уақытта сіз белгілі бір мерзімнен асқан хаттарды оқылған ретінде топтамамен белгілегіңіз келеді. Мұнда біз 2 ыңғайлы және тиімді тәсілдерді бөлісу үшін осы талапты қарастырамыз.

1-әдіс: Электрондық пошталарды қолмен оқылатын топтамамен белгілеу

1. Бастау үшін пошта қалтасын ашыңыз.
2. Содан кейін іздеу өрісін басыңыз.
3. Содан кейін, «Іздеу» таспасында «Көлемі» тобындағы «Барлық пошта элементтері» батырмасын басыңыз.
4. Осыдан кейін іздеу жолына «жіберілген: <= 2018/5/21» критерийлерін енгізіңіз. «2018/5/12» санын қалаған күніңізге өзгертіңіз.
5. Іздеу аяқталған кезде, барлық табылған пошта хабарларын «Ctrl + A» арқылы таңдаңыз.
6. Соңында тінтуірдің оң жағын басып, «Жарнаманы оқуды белгілеу» опциясын таңдаңыз.

2-әдіс: Электрондық пошта хабарларын VBA-мен оқылған уақыттан ескі етіп белгілеу

1. Бастау үшін Outlook бағдарламасында VBA редакторын «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
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 файлын жөндеу үшін.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com