วิธีย้ายอีเมลขาเข้าโดยอัตโนมัติด้วยไฮเปอร์ลิงก์เฉพาะไปยังโฟลเดอร์อีเมลขยะ

หากคุณต้องการย้ายอีเมลขาเข้าที่มีไฮเปอร์ลิงก์เฉพาะในเนื้อหาข้อความไปยังโฟลเดอร์อีเมลขยะใน Outlook โดยอัตโนมัติ คุณสามารถใช้วิธีการที่แนะนำในบทความนี้

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

ย้ายอีเมลที่มีการเชื่อมโยงหลายมิติไปยังโฟลเดอร์อีเมลขยะโดยอัตโนมัติ

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

Public WithEvents objIncomingItems As Outlook.Items

Private Sub Application_Startup()
    Set objIncomingItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objIncomingItems_ItemAdd(ByVal objItem As Object)
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objHyperlinks As Word.Hyperlinks
    Dim i As Long
    Dim strURL As String
    Dim objJunkMailFolder As Outlook.Folder
 
    Set objJunkMailFolder = Application.Session.GetDefaultFolder(olFolderJunk)
 
    If TypeOf objItem Is MailItem Then
       Set objMail = objItem
       Set objWordDocument = objMail.GetInspector.WordEditor
       Set objHyperlinks = objWordDocument.Hyperlinks
 
       If objHyperlinks.Count > 0 Then
          For i = objHyperlinks.Count To 1 Step -1
              strURL = objHyperlinks.Item(i).Address
              'Check if the hyperlink addresses contain specific words
              'You can change the condition as per your needs
              If InStr(LCase(strURL), "www.test.com") > 0 Or InStr(LCase(strURL), "www.sales.com") > 0 Then
                 objMail.Move objJunkMailFolder
              End If
          Next i
       End If
    End If
End Sub

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

ข้อผิดพลาด PST สามารถเกิดขึ้นได้เป็นครั้งคราว

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

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

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