Kaip automatiškai perkelti gaunamus el. laiškus su konkrečiomis hipersaitais į nepageidaujamo el. pašto aplanką

Jei norite automatiškai perkelti gaunamus el. laiškus su konkrečiomis hipersaitais pranešimo tekste į nepageidaujamo el. pašto aplanką programoje „Outlook“, galite naudoti šiame straipsnyje aprašytą metodą.

Kartais „Outlook“ nepageidaujamo el. pašto filtras klaidingai pažymės tikrus el. laiškus kaip nepageidaujamus el. Taigi galbūt norėsite nustatyti žemą „Outlook“ nepageidaujamo el. pašto apsaugos lygį. Tačiau šiuo atveju daugelio nepageidaujamų el. laiškų gali neatpažinti „Outlook“ nepageidaujamo el. pašto filtras, pvz., el. laiškų su rizikingomis hipersaitais. Tai ne tik užgriozdins gautųjų aplanką, bet ir gali užkrėsti jūsų „Outlook“ duomenis, jei spustelėsite nuorodas. Be to, jei jums nepatinka gauti el. laiškų, kuriuose yra specifinių hipersaitų, galbūt norėsite juos perkelti ir į nepageidaujamo el. pašto aplanką. Todėl čia mes sutelksime dėmesį į šią problemą ir paaiškinsime, kaip naudoti VBA, kad automatiškai perkeltumėte gaunamus el. laiškus su konkrečiomis hipersaitais į nepageidaujamo el. pašto aplanką.

Automatiškai perkelkite el. laiškus su konkrečiomis hipersaitais į nepageidaujamo el. pašto aplanką

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada pagrindiniame „Outlook“ lange paspauskite klavišų kombinaciją „Alt + F11“.
3. Tada iššokančiajame lange „Microsoft Visual Basic for Applications“ atidarykite projektą „ThisOutlookSession“.
4. Tada nukopijuokite ir įklijuokite šį VBA kodą į šį projekto langą.

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. Po to pasirašykite šį kodą kaip įprasta.
6. Vėliau pakeiskite „Outlook“ makrokomandos parametrus, kad leistų pasirašytas makrokomandas.
7. Galiausiai paleiskite „Outlook“ iš naujo, kad įgalintumėte naujai pridėtą VBA projektą.
8. Nuo šiol visi gaunami el. laiškai, kuriuose yra specifinių hipersaitų, bus automatiškai perkelti į nepageidaujamo el. pašto aplanką.

Retkarčiais gali atsirasti PST klaidų

Nepaisant įvairių galingų funkcijų, „Outlook“ vis dar negali atsikratyti PST klaidų. Todėl „Outlook“ vartotojams apsaugoti PST duomenis nuo praradimo yra sunki, varginanti, bet gyvybiškai svarbi užduotis. Vienas iš efektyviausių būdų yra reguliariai kurti PST failo atsargines kopijas, kurios labai prisidės prie ateities. PST atkūrimas po nenumatytos PST korupcijos.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant nustatyti SQL Server ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com