วิธีลบอีเมล Outlook โดยอัตโนมัติจากผู้ส่งที่ระบุหลังจากวันที่ระบุ

หากต้องการให้ Outlook ของคุณลบอีเมลจากผู้ส่งที่ระบุจากวันที่ระบุโดยอัตโนมัติคุณสามารถอ่านบทความนี้ได้ ที่นี่เราจะแสดงขั้นตอนโดยละเอียดในการใช้รหัส VBA เพื่อรับมัน

เมื่อพูดถึงการลบอีเมลโดยอัตโนมัติอันดับแรกคุณอาจนึกถึงคุณลักษณะ“ การเก็บถาวรอัตโนมัติ” อย่างไรก็ตามไม่สามารถกรองผู้ส่งบางรายเมื่อเก็บอีเมลอัตโนมัติ ดังนั้นหากคุณต้องการลบอีเมลจากผู้ส่งที่ระบุโดยอัตโนมัติหลังจาก x วันคุณควรใช้วิธีอื่นเช่นวิธีต่อไปนี้

ลบอีเมลจากผู้ส่งที่ระบุโดยอัตโนมัติหลังจาก X Days

1. ขั้นแรก ให้เปิดแอปพลิเคชัน Outlook ของคุณขึ้นมา
2. จากนั้นทริกเกอร์โปรแกรมแก้ไข Outlook VBA ตาม "วิธีเรียกใช้รหัส VBA ใน Outlook ของคุณ"
3. จากนั้นคัดลอกโค้ด VBA ต่อไปนี้ลงในโปรเจ็กต์“ ThisOutlookSession”

Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
 
    Call DeleteEmailsFromSpecificSenderAfterXDays
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'From the specific sender
       If objMail.SenderEmailAddress = "bob_black@datanumen.com" Then
          'Set expiry time - after 5 days
          objMail.ExpiryTime = objMail.ReceivedTime + 4
          objMail.Save
       End If
    End If
End Sub

Private Sub DeleteEmailsFromSpecificSenderAfterXDays()
    Dim strFilter As String
    Dim objExpiredItems As Outlook.Items
    Dim objExpiredMail As Outlook.MailItem
 
    strFilter = "[ExpiryTime] <= " & Chr(34) & Now & Chr(34)
 
    'Get all expired items
    Set objExpiredItems = objInboxItems.Restrict(strFilter)
 
    For i = objExpiredItems.Count To 1 Step -1
        If objExpiredItems(i).Class = olMail Then
           Set objExpiredMail = objExpiredItems(i)
 
           'Auto delete expired emails from the specific sender
           If objExpiredMail.SenderEmailAddress = "bob_black@datanumen.com" Then
              objExpiredMail.Delete
           End If
        End If
    Next
End Sub

4. หลังจากนั้น ให้รีสตาร์ท Outlook เพื่อเปิดใช้งานมาโครนี้
5. ตั้งแต่นั้นเป็นต้นมาทุกครั้งที่มีอีเมลใหม่จากผู้ส่งที่ระบุเข้ามาใน Inbox อีเมลนั้นจะถูกกำหนดเวลาหมดอายุที่เฉพาะเจาะจงซึ่งก็คือวันที่ได้รับ
6. จากนั้น ทุกครั้งที่คุณเปิด Outlook โปรแกรม Outlook จะตรวจสอบและลบอีเมลที่หมดอายุจากผู้ส่งที่ระบุโดยอัตโนมัติ

กู้คืนข้อมูล Outlook หลังจากเสียหาย

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

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

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