Cara Otomatis Memindahkan Email Masuk dengan Hyperlink Tertentu ke Folder Email Sampah

Jika Anda ingin memindahkan email masuk dengan hyperlink tertentu di badan pesan secara otomatis ke folder Email Sampah di Outlook, Anda dapat menggunakan metode yang diperkenalkan di artikel ini.

Terkadang, filter email Outlook Junk salah menandai email asli sebagai Junk. Karenanya, Anda mungkin lebih suka menyetel tingkat perlindungan email sampah Outlook Anda ke rendah. Namun, dalam kasus ini, banyak email sampah mungkin tidak dikenali oleh filter email sampah Outlook, seperti email dengan hyperlink berisiko. Tidak hanya akan mengacaukan folder kotak masuk Anda, tetapi juga dapat menginfeksi data Outlook Anda jika Anda mengklik tautannya. Selain itu, jika Anda tidak suka menerima email yang berisi hyperlink tertentu, Anda mungkin ingin memindahkannya ke folder Email Sampah juga. Oleh karena itu, di sini kami akan fokus pada masalah ini dan memandu Anda bagaimana menggunakan VBA untuk secara otomatis memindahkan email masuk dengan hyperlink tertentu ke folder Email Sampah.

Pindahkan Email Secara Otomatis dengan Hyperlink Tertentu ke Folder Email Sampah

1. Pertama-tama, luncurkan aplikasi Outlook Anda.
2. Kemudian di jendela Outlook utama, tekan tombol "Alt + F11".
3. Selanjutnya, di jendela popup "Microsoft Visual Basic for Applications", buka proyek "ThisOutlookSession".
4. Selanjutnya salin dan tempel kode VBA berikut ke dalam jendela proyek 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. Setelah itu, tanda tangani kode ini seperti biasa.
6. Kemudian ubah pengaturan makro Outlook untuk memperbolehkan makro bertanda tangan.
7. Terakhir, mulai ulang Outlook Anda untuk mengaktifkan proyek VBA yang baru ditambahkan.
8. Mulai sekarang, semua email masuk yang berisi hyperlink tertentu akan secara otomatis dipindahkan ke folder Email Sampah.

Kesalahan PST Dapat Terjadi Sesekali

Meskipun menawarkan berbagai fungsi yang canggih, Outlook tetap tidak dapat menghilangkan kesalahan PST. Oleh karena itu, melindungi data PST dari kehilangan merupakan tugas yang sulit, membosankan, tetapi sangat penting bagi pengguna Outlook. Salah satu cara paling efektif adalah dengan mencadangkan file PST Anda secara teratur, yang akan sangat membantu di masa mendatang. Pemulihan PST setelah korupsi PST yang tidak terduga.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki SQL Server dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com