Ako automaticky zakázať hypertextové odkazy v prichádzajúcich e-mailoch programu Outlook od neznámych odosielateľov

Ak chcete blokovať škodlivé odkazy, radšej nakonfigurujte svoj Outlook tak, aby automaticky deaktivoval hypertextové odkazy v prichádzajúcich e-mailoch od neznámych odosielateľov. Tento článok odhalí kúsok kódov VBA, ktoré vám pomôžu dostať sa ako korok.

Mnoho používateľov sa sťažovalo, že e-mailové vírusy napadli ich súbor programu Outlook. Častejšie je to tak preto, lebo ľahko dôverujú týmto e-mailom od neznámych odosielateľov. Takže stiahnu alebo kliknú na hypertextové odkazy v e-mailoch. Teraz budeme zdieľať metódu. Je schopný nechať Outlook automaticky deaktivovať hypertextové odkazy na prichádzajúce e-maily od neznámych odosielateľov. Ak máte také potreby, prečítajte si ďalšie informácie.

Automatické zakázanie hypertextových odkazov v prichádzajúcich e-mailoch od neznámych odosielateľov

1. Pre začiatok prejdite v programe Outlook do editora VBA pomocou klávesov „Alt + F11“.
2. Ďalej na novej obrazovke pridajte objekt „MS VBScript Regular Expressions“ podľa príspevku „Ako pridať odkaz na knižnicu objektov vo VBA".
3. Potom skopírujte a vložte nasledujúci kód do projektu „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. Potom aktivujte toto makro buď reštartovaním Outlooku, alebo stlačením klávesu „F5“ v podprograme „Application_Startup“.
5. Odvtedy zakaždým, keď sa e-mail od odosielateľa, ktorý nie je uložený v predvolenom priečinku Kontakt, dostane do priečinka Doručená pošta, Outlook v ňom automaticky deaktivuje hypertextové odkazy.

Niekoľko otázok nevyhnutnosti pri ochrane programu Outlook

Pretože je Outlook náchylný na poškodenie, je dosť ťažké chrániť súbor Outlook. Tu uvedieme niekoľko vecí, ktoré musíte počas ochrany údajov v Outlooku mať. Najskôr musíte pravidelne zálohovať svoje údaje z Outlooku. Okrem toho je nevyhnutné, aby ste si dávali pozor na všetky potenciálne riziká, ako sú škodlivé prílohy alebo hypertextové odkazy. V neposlednom rade by ste si mali vopred pripraviť výkonný nástroj na opravu Outlooku, napríklad DataNumen Outlook Repair. Určite sa vám bude hodiť, keď budete potrebovať opraviť PST súbor, ale nástroj na opravu doručenej pošty preukáže zlyhanie.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený mdf a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S