Cara Menonaktifkan Hyperlink secara Otomatis di Email Outlook yang Masuk dari Pengirim Tidak Dikenal

Untuk memblokir tautan berbahaya, Anda sebaiknya mengonfigurasi Outlook untuk menonaktifkan hyperlink secara otomatis di email masuk dari pengirim yang tidak dikenal. Artikel ini akan mengungkapkan sepotong kode VBA yang dapat membantu Anda mendapatkannya seperti gabus.

Banyak pengguna mengeluh bahwa virus yang ditularkan melalui email menyerang file Outlook mereka. Lebih sering daripada tidak, itu karena mereka dengan mudah mempercayai email dari pengirim yang tidak dikenal. Jadi mereka mengunduh atau mengklik hyperlink di email. Sekarang, selanjutnya, kami akan membagikan sebuah metode. Ia mampu membiarkan Outlook secara otomatis menonaktifkan hyperlink email masuk dari pengirim yang tidak dikenal. Jika Anda memiliki kebutuhan seperti itu, baca terus untuk mengetahui detail selengkapnya.

Nonaktifkan Otomatis Hyperlink di Email Masuk dari Pengirim Tidak Dikenal

1. Untuk sebagaitart, di Outlook, buka editor VBA dengan "Alt + F11".
2. Selanjutnya, di layar baru, tambahkan objek "MS VBScript Regular Expressions" sesuai post "Cara Menambahkan Object Library Referensi di VBA".
3. Kemudian, salin dan tempel kode berikut ke dalam proyek "ThisOutlookSession".

Public WithEvents objInboxItems As Outlook.Items

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

'Occurs when new mail arrives in your Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As MailItem
    Dim objContacts As Outlook.Items
    Dim strFilter As String
    Dim objFoundContact As Outlook.ContactItem
    Dim bUnknownSender As Boolean
    Dim objRegExp As Object
    Dim objFoundResults As Object
    Dim i, n As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Check if the sender is in your default Contact folder
       Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
       For i = 1 To 3
           strFilter = "[Email" & i & "Address] = " & objMail.SenderEmailAddress
           Set objFoundContact = objContacts.Find(strFilter)
           If Not (objFoundContact Is Nothing) Then
              bUnknownSender = False
              Exit For
           End If
       Next
       If objFoundContact Is Nothing Then
          bUnknownSender = True
       End If
 
       'If the sender is unknown
       If bUnknownSender = True Then
          'Find the urls within "<a href=" tags in HTMLbody of Mail
          Set objRegExp = CreateObject("vbscript.RegExp")
          With objRegExp
               .Pattern = "<?href\s*=\s*[""'].+?[""'][^>]*?"
               .IgnoreCase = True
               .Global = True
          End With
 
          If objRegExp.Test(objMail.HTMLBody) Then
             Set objFoundResults = objRegExp.Execute(objMail.HTMLBody)
             For n = 1 To objFoundResults.Count
                 'Disable the hyperlinks in HTMLbody
                 objMail.HTMLBody = Replace(objMail.HTMLBody, objFoundResults.Item(n - 1).Value, "")
             Next
          End If
 
          'Save the mail
          objMail.Save
       End If
    End If
End Sub

4. Setelah itu, aktifkan makro ini dengan restart Outlook atau menekan tombol "F5" di "Application_Startup ”subrutin.
5. Sejak saat itu, setiap kali email yang berasal dari pengirim yang tidak disimpan di folder Kontak default masuk ke Inbox, Outlook akan secara otomatis menonaktifkan hyperlink di dalamnya.

Beberapa Hal Penting dalam Perlindungan Outlook

Karena Outlook rentan terhadap kerusakan, maka cukup sulit untuk melindungi file Outlook. Di sini kami akan mencantumkan beberapa hal yang harus dimiliki selama perlindungan data Outlook. Pertama-tama, Anda harus mencadangkan data Outlook Anda secara teratur. Selain itu, penting bagi Anda untuk berhati-hati terhadap semua potensi risiko, seperti lampiran atau hyperlink yang berbahaya. Last but not least, Anda harus menyiapkan alat perbaikan Outlook yang kuat sebelumnya, seperti DataNumen Outlook Repair. Ini pasti akan berguna saat Anda membutuhkannya memperbaiki PST file tetapi alat perbaikan kotak masuk membuktikan kegagalan.

Pengantar Penulis:

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