Si të çaktivizoni automatikisht hiperlidhjet në emailet hyrëse të Outlook nga dërguesit e panjohur

Për të bllokuar lidhjet me qëllim të keq, është më mirë të konfiguroni Outlook-un tuaj që të çaktivizojë automatikisht hiperlidhjet në emailet hyrëse nga dërguesit e panjohur. Ky artikull do të zbulojë një pjesë të kodeve VBA që mund t'ju ndihmojnë ta merrni atë si një tapë.

Shumë përdorues janë ankuar se viruset me email sulmuan skedarin e tyre Outlook. Më shpesh sesa jo, kjo është për shkak se ata besojnë lehtësisht në ato email nga dërguesit e panjohur. Pra, ata shkarkojnë ose klikojnë në hiperlidhjet në postë. Tani, pas kësaj, ne do të ndajmë një metodë. Është në gjendje të lejojë që Outlook automatik të çaktivizojë lidhjet e emaileve në hyrje nga dërgues të panjohur. Nëse keni nevoja të tilla, ju lutemi lexoni për të marrë më shumë detaje.

Çaktivizo automatikisht hiperlidhjet në emailet hyrëse nga dërguesit e panjohur

1. Për të filluar, në Outlook, shkoni te redaktori VBA duke përdorur "Alt + F11".
2. Tjetra, në ekranin e ri, shtoni objektin "MS VBScript Regular Expressions" sipas postimit "Si të shtoni një referencë të bibliotekës së objekteve në VBA".
3. Më pas, kopjoni dhe ngjisni kodin e mëposhtëm në projektin "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. Pas kësaj, aktivizoni këtë makro duke rinisur Outlook-un ose duke shtypur butonin "F5" në nënprogramin "Application_Startup".
5. Që atëherë, sa herë që një email që vjen nga dërguesi që nuk është i ruajtur në dosjen e parazgjedhur të Kontaktit futet në Inbox, Outlook do të çaktivizojë automatikisht lidhjet në të.

Disa çështje të domosdoshmërisë në mbrojtjen e Outlook

Meqenëse Outlook është i ndjeshëm ndaj dëmtimit, është mjaft e vështirë të mbrohet skedari i Outlook. Këtu do të rendisim disa gjëra të domosdoshme gjatë mbrojtjes së të dhënave të Outlook. Para së gjithash, duhet të kopjoni rregullisht të dhënat tuaja të Outlook. Për më tepër, është thelbësore që ju të keni kujdes nga të gjitha rreziqet e mundshme, si bashkëngjitjet me qëllim të keq ose hiperlidhjet. E fundit, por jo më pak e rëndësishme, duhet të përgatisni paraprakisht një mjet të fuqishëm të rregullimit të Outlook, si p.sh DataNumen Outlook Repair. Me siguri do t'ju vijë në ndihmë kur të keni nevojë riparim PST skedari por mjeti i riparimit të kutisë hyrëse provon dështimin.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë mdf i dëmtuar dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com