วิธีล้างโฟลเดอร์ "อีเมลขยะ" โดยอัตโนมัติเมื่อออกจาก Outlook

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

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

ล้างโฟลเดอร์ "อีเมลขยะ" โดยอัตโนมัติเมื่อออกจาก Outlook

1. สำหรับเป็นtart เปิดโปรแกรม Outlook ของคุณ
2. จากนั้นกดปุ่ม“ Alt + F11” เพื่อเข้าถึงโปรแกรมแก้ไข Outlook VBA
3. ในหน้าต่าง“ Microsoft Visual Basic for Applications” ที่ปรากฏขึ้นใหม่คุณควรค้นหาและเปิดโครงการ“ ThisOutlookSession”
4. จากนั้นคุณต้องคัดลอกรหัส VBA ต่อไปนี้ลงในโครงการนี้

Private Sub Application_Quit()
    Dim objJunkFolder As Outlook.Folder
    Dim i As Long
    Dim objMail As Outlook.MailItem
    Dim objDeletedFolder As Outlook.Folder
    Dim objItem As Object
    Dim objProperty As Outlook.UserProperty
 
    Set objJunkFolder = Outlook.Application.Session.GetDefaultFolder(olFolderJunk)
 
    For i = objJunkFolder.Items.count To 1 Step -1
        If objJunkFolder.Items(i).Class = olMail Then
           Set objMail = objJunkFolder.Items(i)
 
           'Add the specific property to each junk email
           objMail.UserProperties.Add "Delete", olText
           objMail.Save
           'Delete them
           objMail.Delete
        End If
    Next
 
    Set objDeletedFolder = Application.Session.GetDefaultFolder(olFolderDeletedItems)
 
    For Each objItem In objDeletedFolder.Items
        'Find out the junk emails in the "Deleted Items" folder
        Set objProperty = objItem.UserProperties.Find("Delete")
        If TypeName(objProperty) <> "Nothing" Then
           'Permanently delete them
           objItem.Delete
        End If
    Next
 
    'Prompt You
    MsgBox Chr(34) & "Junk Email" & Chr(34) & " Folder Emptied!", vbExclamation + vbOKOnly
End Sub

5. หลังจากนั้นคุณต้องกำหนดใบรับรองดิจิทัลให้กับมาโครใหม่นี้

• ก่อนอื่นให้กดปุ่ม "เครื่องมือ"
• จากนั้นเลือกตัวเลือก“ ลายเซ็นดิจิทัล” จากเมนูแบบเลื่อนลง
• จากนั้นทำตามคำแนะนำบนหน้าจอเพื่อทำมันให้สำเร็จ

6. เปลี่ยนการตั้งค่าแมโคร Outlook ของคุณในภายหลังเพื่อเปิดใช้งานโครงการ VBA ที่ลงนามแล้ว
7. ในที่สุด restart Outlook ของคุณเพื่อเปิดใช้งานแมโครใหม่นี้
8. นับจากนี้เป็นต้นไปทุกครั้งที่คุณออกจาก Outlook โฟลเดอร์ "อีเมลขยะ" จะถูกล้างโดยอัตโนมัติ และคุณจะได้รับข้อความดังภาพด้านล่าง:

มาตรการที่มีประสิทธิภาพเพื่อป้องกัน Outlook ล่ม

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

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

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