Xüsusi hiperlinklərlə daxil olan e-poçtları lazımsız e-poçt qovluğuna avtomatik olaraq necə köçürmək olar

Mesaj gövdəsindəki xüsusi hiperlinkləri olan daxil olan e-poçtları avtomatik olaraq Outlook-dakı Lazımsız E-poçt qovluğuna köçürmək istəyirsinizsə, bu məqalədə təqdim olunan üsuldan istifadə edə bilərsiniz.

Bəzən, Outlook Junk e-poçt filtri səhvən orijinal e-poçtları zibil kimi qeyd edir. Beləliklə, Outlook junk e-poçt mühafizəsi səviyyəsini aşağı səviyyəyə təyin etməyə üstünlük verə bilərsiniz. Bununla belə, bu halda, bir çox lazımsız e-poçtlar, riskli hiperlinkləri olan e-poçtlar kimi Outlook lazımsız e-poçt filtri tərəfindən tanınmaya bilər. O, yalnız gələnlər qutusu qovluğunu dağıdacaq, həm də bağlantılara klikləsəniz, Outlook məlumatlarınızı da yoluxa bilər. Bundan əlavə, əgər siz xüsusi hiperlinkləri ehtiva edən e-poçtları qəbul etməyi sevmirsinizsə, onları həm də lazımsız e-poçt qovluğuna köçürmək istəyə bilərsiniz. Buna görə də, biz burada bu məsələyə diqqət yetirəcəyik və xüsusi hiperlinklərlə daxil olan e-poçtları lazımsız e-poçt qovluğuna avtomatik köçürmək üçün VBA-dan necə istifadə edəcəyinizi sizə istiqamətləndirəcəyik.

Xüsusi hiperlinkləri olan e-poçtları lazımsız e-poçt qovluğuna avtomatik köçürün

1. Ən başlanğıcda Outlook proqramınızı işə salın.
2. Sonra əsas Outlook pəncərəsində "Alt + F11" düymələrini basın.
3. Sonra açılan “Proqramlar üçün Microsoft Visual Basic” pəncərəsində “ThisOutlookSession” layihəsini açın.
4. Sonra aşağıdakı VBA kodunu bu layihə pəncərəsinə köçürün və yapışdırın.

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. Bundan sonra bu kodu həmişəki kimi imzalayın.
6. Daha sonra imzalanmış makrolara icazə vermək üçün Outlook makro parametrlərini dəyişdirin.
7. Sonda yeni əlavə edilmiş VBA layihəsini aktivləşdirmək üçün Outlook-u yenidən başladın.
8. Bundan sonra, xüsusi hiperlinkləri ehtiva edən bütün daxil olan e-poçtlar avtomatik olaraq Lazımsız E-poçt qovluğuna köçürüləcək.

PST xətaları indi və sonra baş verə bilər

Müxtəlif güclü funksiyalarla öyünməsinə baxmayaraq, Outlook hələ də PST səhvlərindən xilas ola bilmir. Buna görə də, Outlook istifadəçiləri üçün PST məlumatlarınızı itkidən qorumaq çətin, yorucu, lakin həyati əhəmiyyətli bir işdir. Ən təsirli vasitələrdən biri PST faylınızı müntəzəm olaraq ehtiyat nüsxələməkdir ki, bu da gələcəyə çox töhfə verəcəkdir. PST bərpası gözlənilməz PST korrupsiyasından sonra.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc düzeltmek SQL Server və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com