Kā automātiski atspējot hipersaites ienākošajos Outlook e-pastos no nezināmiem sūtītājiem

Lai bloķētu ļaunprātīgas saites, labāk konfigurējiet Outlook, lai automātiski atspējotu hipersaites ienākošajos e-pastos no nezināmiem sūtītājiem. Šis raksts atklās daļu VBA kodu, kas var palīdzēt jums to iegūt kā korķi.

Daudzi lietotāji ir sūdzējušies, ka e-pastā izplatīti vīrusi uzbruka viņu Outlook failam. Biežāk tas notiek tāpēc, ka viņi viegli uzticas nezināmu sūtītāju e-pastiem. Tāpēc viņi lejupielādē vai noklikšķina uz hipersaitēm e-pastos. Tagad, tālāk, mēs dalīsimies ar metodi. Tas spēj ļaut programmai Outlook automātiski atspējot hipersaites ienākošajiem e-pastiem no nezināmiem sūtītājiem. Ja jums ir šādas vajadzības, lūdzu, lasiet tālāk, lai iegūtu sīkāku informāciju.

Automātiski atspējot hipersaites ienākošajos e-pastos no nezināmiem sūtītājiem

1. Lai sāktu, programmā Outlook atveriet VBA redaktoru, nospiežot taustiņu kombināciju “Alt + F11”.
2. Pēc tam jaunajā ekrānā pievienojiet objektu “MS VBScript regulārās izteiksmes”, kā norādīts ierakstā “Kā pievienot objektu bibliotēkas atsauci VBA valodā".
3. Pēc tam nokopējiet un ielīmējiet šo kodu projektā “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. Pēc tam aktivizējiet šo makro, restartējot programmu Outlook vai nospiežot taustiņu “F5” apakšprogrammā “Application_Startup”.
5. Kopš tā laika katru reizi, kad no sūtītāja saņemts e-pasts, kas nav saglabāts noklusējuma mapē Kontaktpersona, nokļūst iesūtnē, Outlook automātiski atspējos tajā esošās hipersaites.

Vairāki Outlook aizsardzības nepieciešamības jautājumi

Tā kā Outlook ir pakļauta bojājumiem, ir diezgan grūti aizsargāt Outlook failu. Šeit mēs uzskaitīsim vairākas obligātās iespējas Outlook datu aizsardzības laikā. Pirmkārt, jums regulāri jādublē Outlook dati. Turklāt jums ir svarīgi piesargāties no visiem iespējamiem riskiem, piemēram, no ļaunprātīgiem pielikumiem vai hipersaitēm. Visbeidzot, jums ir iepriekš jāsagatavo jaudīgs Outlook labošanas rīks, piemēram, DataNumen Outlook Repair. Tas noteikti noderēs, kad jums tas būs nepieciešams remonts PST failu, bet iesūtnes labošanas rīks pierāda kļūmi.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp bojāts mdf un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar