Naməlum Göndərənlərdən Gələn Outlook E-poçtlarında Hiperlinkləri avtomatik olaraq necə söndürmək olar

Zərərli bağlantıları bloklamaq üçün Outlook-u naməlum göndəricilərdən daxil olan e-poçtlardakı hiperlinkləri avtomatik söndürmək üçün konfiqurasiya etməlisiniz. Bu məqalə onu mantar kimi əldə etməyə kömək edə biləcək VBA kodlarının bir hissəsini ortaya qoyacaqdır.

Bir çox istifadəçi e-poçt vasitəsilə ötürülən virusların onların Outlook faylına hücum etməsindən şikayətlənir. Daha tez-tez, naməlum göndəricilərdən gələn e-poçtlara asanlıqla etibar etmələridir. Beləliklə, onlar məktublardakı hiperlinkləri yükləyirlər və ya klikləyirlər. İndi, bundan sonra bir üsul paylaşacağıq. O, Outlook-a naməlum göndərənlərdən daxil olan e-poçtların hiperlinklərini avtomatik söndürməyə imkan verir. Əgər belə ehtiyaclarınız varsa, daha ətraflı məlumat almaq üçün oxuyun.

Naməlum Göndərənlərdən Gələn E-poçtlarda Hiperlinkləri Avtomatik Deaktiv edin

1. Başlamaq üçün Outlook-da "Alt + F11" düymələri ilə VBA redaktoruna keçin.
2. Növbəti olaraq, yeni ekranda, "yazıya uyğun olaraq" MS VBScript Regular Expressions obyektini əlavə edin.VBA-da Obyekt Kitabxanasına İstinad necə əlavə olunur".
3. Sonra aşağıdakı kodu kopyalayıb “ThisOutlookSession” layihəsinə yapışdırın.

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. Bundan sonra, Outlook-u yenidən başlatmaqla və ya "Application_Startup" alt proqramında "F5" düyməsini basmaqla bu makronu aktivləşdirin.
5. O vaxtdan bəri, defolt Əlaqə qovluğunda saxlanmayan göndərəndən gələn e-poçt hər dəfə Gələnlər qutusuna daxil olduqda, Outlook oradakı hiperlinkləri avtomatik olaraq söndürəcək.

Outlook qorunmasında bir sıra zəruri məsələlər

Outlook zədələnməyə həssas olduğundan, Outlook faylını qorumaq olduqca çətindir. Burada Outlook məlumatlarının mühafizəsi zamanı bir neçə vacib şərti sadalayacağıq. İlk növbədə, siz müntəzəm olaraq Outlook məlumatlarınızın ehtiyat nüsxəsini çıxarmalısınız. Bundan əlavə, zərərli əlavələr və ya hiperlinklər kimi bütün potensial risklərdən ehtiyatlı olmanız vacibdir. Nəhayət, ən azı, güclü bir Outlook düzəltmə aləti hazırlamalısınız, məsələn DataNumen Outlook Repair. Lazım olanda, şübhəsiz ki, faydalı olacaq təmir PST fayl, lakin gələnlər qutusu təmir aləti uğursuzluğu sübut edir.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş mdf və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com