Багцлах 2 арга Бүх 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. Эхлэхийн тулд VBA редакторыг Outlook дээр “Таны 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 гэнэтийн ослын дараа Outlook PST файлууд эвдэрч магадгүй юм. Хэрэв танд шинэчилсэн нөөц байгаа бол та зүгээр л хийж болно Outlook-г сэргээх таны нөөцтэй өгөгдөл. Үгүй бол танд мэргэшсэн мэргэжилтэн, хэрэгсэл хайж олохоос өөр сонголт байхгүй DataNumen Outlook Repair Outlook файлыг засах.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com