Cara Auto Memindahkan E-mel Masuk dengan Pautan Hyperlink Khusus ke Folder Junk E-mail

Sekiranya anda ingin memindahkan e-mel masuk secara automatik dengan pautan hiper tertentu di badan mesej ke folder E-mail Sampah di Outlook anda, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini.

Kadang kala, penapis e-mel Outlook Junk secara tidak sengaja akan menandakan e-mel yang asli sebagai sampah. Oleh itu, anda mungkin memilih untuk menetapkan tahap perlindungan e-mel sampah Outlook anda menjadi rendah. Namun, dalam kes ini, banyak e-mel sampah mungkin tidak dikenali oleh penapis e-mel sampah Outlook, seperti e-mel dengan pautan berisiko. Bukan sahaja ia akan merosakkan folder peti masuk anda, tetapi juga dapat menjangkiti data Outlook anda jika anda mengklik pautan. Selain itu, jika anda tidak suka menerima e-mel yang mengandungi pautan hiper tertentu, anda mungkin ingin memindahkannya ke folder E-mail Sampah juga. Oleh itu, di sini kami akan memberi tumpuan kepada masalah ini dan membimbing anda bagaimana menggunakan VBA untuk memindahkan e-mel masuk secara automatik dengan pautan hiper ke folder E-mail Sampah.

Pindahkan E-mel secara automatik dengan Hyperlink Tertentu ke Folder Junk E-mail

1. Pada awalnya, lancarkan aplikasi Outlook anda.
2. Kemudian di tetingkap Outlook utama, tekan butang kekunci "Alt + F11".
3. Selanjutnya, di tetingkap "Microsoft Visual Basic for Applications" pop timbul, buka proyek "ThisOutlookSession".
4. Selanjutnya salin dan tampal kod VBA berikut ke tetingkap projek ini.

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. Selepas itu, tandatangani kod ini seperti biasa.
6. Kemudian ubah tetapan makro Outlook untuk membenarkan makro yang ditandatangani.
7. Akhirnya mulakan semula Outlook anda untuk mendayakan projek VBA yang baru ditambah.
8. Mulai sekarang, semua e-mel masuk yang mengandungi hyperlink tertentu akan dipindahkan secara automatik ke folder E-mail Sampah.

Kesalahan PST Boleh Berlaku Sekali-sekala

Walaupun mempunyai pelbagai fungsi yang hebat, Outlook masih tidak dapat menghapuskan ralat PST. Oleh itu, ia merupakan tugas yang sukar, membosankan tetapi sangat penting bagi pengguna Outlook untuk melindungi data PST anda daripada kehilangan. Salah satu cara yang paling berkesan adalah dengan membuat sandaran fail PST anda secara berkala, yang akan menyumbang banyak kepada masa hadapan. Pemulihan PST setelah rasuah PST yang tidak dijangka.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk menetapkan SQL Server dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com