Sådan deaktiveres hyperlinks automatisk i indgående Outlook-e-mails fra ukendte afsendere

For at blokere ondsindede links, må du hellere konfigurere din Outlook til automatisk at deaktivere hyperlinks i indgående e-mails fra ukendte afsendere. Denne artikel vil afsløre et stykke VBA-koder, der kan hjælpe dig med at få det som en prop.

Mange brugere har klaget over, at e-mail-bårne vira angreb deres Outlook-fil. Oftere end ikke, er det fordi, at de let stoler på de e-mails fra de ukendte afsendere. Så de downloader eller klikker på hyperlinks i mails. Nu, derefter, vil vi dele en metode. Det er i stand til at lade Outlook auto deaktivere hyperlinks af indgående e-mails fra ukendte afsendere. Hvis du har sådanne behov, så læs venligst videre for at få flere detaljer.

Deaktiver automatisk hyperlinks i indgående e-mails fra ukendte afsendere

1. For somtart, i Outlook, gå til VBA editor ved "Alt + F11".
2. Tilføj derefter "MS VBScript Regular Expressions"-objektet i den nye skærm som på sost "Sådan tilføjes et objekt Library Reference i VBA".
3. Kopier og indsæt derefter følgende kode i "ThisOutlookSession" -projektet.

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. Aktiver derefter denne makro enten ved restart Outlook eller tryk på "F5"-tasten i "Application_Startup ”subrutine.
5. Siden da, hver gang en e-mail, der kommer fra afsenderen, der ikke er gemt i standardmappen Kontaktperson, kommer ind i indbakken, vil Outlook automatisk deaktivere hyperlinks i den.

Flere ting af nødvendighed i Outlook-beskyttelse

Da Outlook er modtagelig for beskadigelse, er det ret svært at beskytte Outlook-filen. Her vil vi liste flere must-haves under Outlook databeskyttelse. Først og fremmest skal du sikkerhedskopiere dine Outlook-data regelmæssigt. Desuden er det vigtigt for dig at være opmærksom på alle potentielle risici, såsom ondsindede vedhæftede filer eller hyperlinks. Sidst, men ikke mindst, bør du forberede et kraftfuldt Outlook-fixværktøj på forhånd, f.eks DataNumen Outlook Repair. Det vil helt sikkert komme til nytte, når du har brug for det reparation PST fil, men indbakke reparationsværktøj viser fejl.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder beskadiget mdf og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com