Белгісіз жіберушілерден Outlook электрондық поштасындағы гипер сілтемелерді автоматты түрде қалай өшіруге болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Зиянды сілтемелерді бұғаттау үшін Outlook бағдарламасын белгісіз жіберушілерден келетін электрондық хаттардағы сілтемелерді автоматты түрде өшіретін етіп реттеген дұрыс. Бұл мақалада оны тығын сияқты алуға көмектесетін VBA кодтарының бір бөлігі ашылады.

Көптеген пайдаланушылар электрондық пошта арқылы берілетін вирустар Outlook файлына шабуыл жасады деп шағымданды. Көбінесе, олар белгісіз жіберушілердің электрондық хаттарына сенім артуға болатындықтан. Сондықтан олар пошталардағы сілтемелерді жүктейді немесе басады. Енді, содан кейін біз бір әдіспен бөлісетін боламыз. Ол Outlook бағдарламасына белгісіз жіберушілерден келетін электрондық пошта сілтемелерін автоматты түрде өшіруге мүмкіндік береді. Егер сізде осындай қажеттіліктер болса, толығырақ ақпарат алу үшін оқыңыз.Белгісіз жіберушілерден Outlook электрондық поштасындағы гипер сілтемелерді автоматты түрде өшіру

Белгісіз жіберушілердің кіріс хаттарындағы гиперсілтемелерді автоматты түрде өшіру

  1. Бастау үшін, Outlook бағдарламасында «Alt + F11» пернелер тіркесімін басу арқылы VBA редакторына өтіңіз.
  2. Келесі, жаңа экранда, « жазбасына сәйкес «MS VBScript тұрақты өрнектер» нысанын қосыңыз.VBA бағдарламасында объект кітапханасына сілтемені қалай қосуға болады«.
  3. Содан кейін келесі кодты көшіріп, «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

VBA коды - белгісіз жіберушілерден келетін электрондық хаттардағы гиперсілтемелерді автоматты түрде өшіру

  1. Осыдан кейін, Outlook бағдарламасын қайта іске қосу немесе «Application_Startup» ішкі бағдарламасындағы «F5» пернесін басу арқылы осы макросты белсендіріңіз.
  2. Содан бері әдепкі Байланыс қалтасында сақталмаған жіберушіден келетін электрондық пошта Кіріс жәшігіне түскен сайын, Outlook ондағы сілтемелерді автоматты түрде өшіреді.Гиперсілтемелерді автоматты түрде өшіру

Перспективаны қорғаудың бірнеше қажеттілігі

Outlook зақымдануға бейім болғандықтан, Outlook файлын қорғау өте қиын. Мұнда біз Outlook деректерін қорғау кезінде бірнеше міндетті тізімді келтіреміз. Ең алдымен, сіз Outlook деректерінің сақтық көшірмесін үнемі жасап отыруыңыз керек. Сонымен қатар, сізге зиянды қосымшалар немесе гипер сілтемелер сияқты барлық ықтимал қауіптерден сақ болу қажет. Соңғысы, кем емес, мысалы, алдын-ала қуатты Outlook түзету құралын дайындаған жөн DataNumen Outlook Repair. Қажет болған кезде ол міндетті түрде ыңғайлы болады жөндеу PST файл, бірақ кіріс жәшігін жөндеу құралы істен шыққандығын дәлелдейді.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf бүлінген және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.