2 วิธีในการแบทช์ทำเครื่องหมายอีเมล Outlook ทั้งหมดที่เก่ากว่าวันที่ระบุว่าอ่านแล้ว

หลังจากนำเข้าอีเมลเก่าหลายฉบับไปยัง Outlook และอีเมลเหล่านี้อยู่ในสถานะ“ ยังไม่ได้อ่าน” คุณต้องต้องการทำเครื่องหมายเป็นกลุ่มว่าอ่านแล้ว ตอนนี้ในบทความนี้เราจะแสดงวิธีการด่วน 2 วิธีให้กับคุณ

ในบางครั้งคุณอาจต้องทำเครื่องหมายอีเมลหลายฉบับเป็นชุดว่าอ่านแล้ว ตัวอย่างเช่นคุณมีไฟล์ PST เก่าซึ่งมีอีเมลเก่าจำนวนมาก จากนั้นคุณนำเข้าอีเมลไปยังไฟล์ Outlook PST ของคุณเอง อย่างไรก็ตามหลังจากนำเข้าอีเมลเหล่านี้จะแสดงเป็น "ยังไม่ได้อ่าน" ตามค่าเริ่มต้น ในตอนนี้คุณจะต้องทำเครื่องหมายอีเมลเหล่านี้เป็นชุดซึ่งเก่ากว่าวันที่ระบุว่าอ่านแล้ว ที่นี่เราจะดูข้อกำหนดนี้เพื่อแบ่งปัน 2 แนวทางที่มีประโยชน์และมีประสิทธิภาพ

วิธีที่ 1: Batch Mark พบอีเมลว่าอ่านด้วยตนเอง

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. ต่อมาในกล่องโต้ตอบป๊อปอัปขนาดเล็กให้ป้อนวันที่ที่ระบุแล้วกด "ตกลง"
5. ในที่สุดอีเมลทั้งหมดที่เก่ากว่าวันที่ระบุจะถูกทำเครื่องหมายว่าอ่านแล้ว

กู้คืนไฟล์ Outlook ที่ถูกบุกรุก

ไฟล์ Outlook PST อาจเสียหายหลังจากที่ Outlook หยุดทำงานโดยไม่คาดคิดในขณะนี้ หากคุณมีข้อมูลสำรองที่อัปเดตคุณสามารถทำได้ กู้คืน Outlook ข้อมูลด้วยการสำรองข้อมูลของคุณ มิฉะนั้นคุณไม่มีทางเลือกอื่นนอกจากหาผู้เชี่ยวชาญเฉพาะทางหรือยูทิลิตี้ DataNumen Outlook Repair เพื่อซ่อมแซมไฟล์ Outlook

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.