Кіріс хаттарды арнайы гипер сілтемелермен қалай қажет емес электрондық пошта қалтасына жылжыту керек

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

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

Электрондық поштаны қажетсіз гипер сілтемелермен автоматты түрде қажетсіз электрондық пошта қалтасына жылжыту

1. Ең басында Outlook қосымшасын іске қосыңыз.
2. Содан кейін негізгі Outlook терезесінде «Alt + F11» батырмаларын басыңыз.
3. Содан кейін, «Microsoft Visual Basic for Applications» қалқымалы терезесінде «ThisOutlookSession» жобасын ашыңыз.
4. Келесі VBA кодын осы жобаның терезесіне көшіріңіз және қойыңыз.

Public WithEvents objIncomingItems As Outlook.Items

Private Sub Application_Startup()
    Set objIncomingItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objIncomingItems_ItemAdd(ByVal objItem As Object)
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objHyperlinks As Word.Hyperlinks
    Dim i As Long
    Dim strURL As String
    Dim objJunkMailFolder As Outlook.Folder
 
    Set objJunkMailFolder = Application.Session.GetDefaultFolder(olFolderJunk)
 
    If TypeOf objItem Is MailItem Then
       Set objMail = objItem
       Set objWordDocument = objMail.GetInspector.WordEditor
       Set objHyperlinks = objWordDocument.Hyperlinks
 
       If objHyperlinks.Count > 0 Then
          For i = objHyperlinks.Count To 1 Step -1
              strURL = objHyperlinks.Item(i).Address
              'Check if the hyperlink addresses contain specific words
              'You can change the condition as per your needs
              If InStr(LCase(strURL), "www.test.com") > 0 Or InStr(LCase(strURL), "www.sales.com") > 0 Then
                 objMail.Move objJunkMailFolder
              End If
          Next i
       End If
    End If
End Sub

5. Осыдан кейін бұл кодқа әдеттегідей қол қойыңыз.
6. Кейінірек қол қойылған макростарға мүмкіндік беру үшін Outlook макро параметрлерін өзгертіңіз.
7. Жаңадан қосылған VBA жобасын қосу үшін Outlook бағдарламасын қайта іске қосыңыз.
8. Осы сәттен бастап, арнайы гипер сілтемелері бар барлық кіріс хаттар автоматты түрде қажетсіз пошта қалтасына көшіріледі.

PST қателіктері қазір де болуы мүмкін

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

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

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