Kā automātiski pārvietot ienākošos e-pastus, izmantojot īpašas hipersaites uz nevēlamā e-pasta mapi

Ja vēlaties ienākošos e-pastus ar īpašām hipersaitēm ziņojuma pamattekstā automātiski pārvietot uz Outlook mapi Nevēlamais e-pasts, varat izmantot šajā rakstā ievadīto metodi.

Dažreiz Outlook nevēlamā e-pasta filtrs kļūdaini iezīmē īstos e-pastus kā junkus. Tādējādi, iespējams, vēlēsities iestatīt zemu Outlook nevēlamā e-pasta aizsardzības līmeni. Tomēr šajā gadījumā daudzus nevēlamus e-pastus, iespējams, neatpazīst Outlook nevēlamā e-pasta filtrs, piemēram, e-pastus ar riskantām hipersaitēm. Tas ne tikai pārblīvēs iesūtnes mapi, bet arī var inficēt jūsu Outlook datus, noklikšķinot uz saitēm. Turklāt, ja jums nepatīk saņemt e-pastus, kas satur īpašas hipersaites, iespējams, vēlēsities tos pārvietot arī uz mapi Nevēlamais e-pasts. Tādēļ šeit mēs pievērsīsimies šim jautājumam un palīdzēsim jums izmantot VBA, lai ienākošos e-pastus ar īpašām hipersaitēm automātiski pārvietotu uz mapi Nevēlamais e-pasts.

Automātiski pārvietot e-pastus ar īpašām hipersaitēm uz nevēlamā e-pasta mapi

1. Pašā sākumā palaidiet programmu Outlook.
2. Pēc tam galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
3. Pēc tam uznirstošajā logā “Microsoft Visual Basic for Applications” atveriet projektu “ThisOutlookSession”.
4. Nākamais nokopējiet un ielīmējiet šo VBA kodu šajā projekta logā.

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. Pēc tam parakstiet šo kodu kā parasti.
6. Vēlāk mainiet Outlook makro iestatījumus, lai atļautu parakstītus makro.
7. Visbeidzot, restartējiet programmu Outlook, lai iespējotu jaunizveidoto VBA projektu.
8. Turpmāk visi ienākošie e-pasta ziņojumi, kas satur īpašas hipersaites, tiks automātiski pārvietoti uz mapi Nevēlamais e-pasts.

Šad un tad var rasties PST kļūdas

Neskatoties uz dažādām jaudīgām funkcijām, Outlook joprojām nevar atbrīvoties no PST kļūdām. Tāpēc Outlook lietotājiem ir grūts, nogurdinošs, bet vitāli svarīgs uzdevums aizsargāt savus PST datus pret zudumiem. Viens no efektīvākajiem veidiem ir regulāri dublēt PST failu, kas nākotnē sniegs lielu ieguldījumu. PST atkopšana pēc neparedzētas PST korupcijas.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp noteikts SQL Server un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar