Hur man automatiskt flyttar inkommande e-postmeddelanden med specifika hyperlänkar till skräppostmapp

Om du automatiskt vill flytta inkommande e-postmeddelanden med specifika hyperlänkar i meddelandetexten till skräppostmappen i Outlook, kan du använda metoden som introduceras i den här artikeln.

Ibland markerar e-postfiltret i Outlook felaktigt de äkta e-postmeddelandena som skräp. Således kanske du föredrar att ställa in nivån på ditt skräppostskydd i Outlook till lågt. Men i det här fallet kanske många skräppost inte känns igen av Outlook skräppostfilter, t.ex. e-postmeddelanden med riskabla hyperlänkar. Inte bara kommer det att störa din inkorgsmapp utan det kan också infektera dina Outlook-data om du klickar på länkarna. Dessutom, om du ogillar att ta emot e-postmeddelanden som innehåller specifika hyperlänkar, kanske du också vill flytta dem till skräppostmappen. Därför kommer vi här att fokusera på den här frågan och vägleda dig hur du använder VBA för att automatiskt flytta inkommande e-postmeddelanden med specifika hyperlänkar till skräppostmapp.

Flytta e-postmeddelanden automatiskt med specifika hyperlänkar till skräppostmapp

1. Starta din Outlook-applikation redan från början.
2. Tryck sedan på “Alt + F11” -knapparna i huvudfönstret i Outlook.
3. I popup-fönstret "Microsoft Visual Basic for Applications" öppnar du sedan projektet "ThisOutlookSession".
4. Nästa kopiera och klistra in följande VBA-kod i detta projektfönster.

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. Därefter undertecknar du den här koden som vanligt.
6. Senare ändra Outlook-makroinställningarna för att tillåta signerade makron.
7. Starta så småningom om Outlook för att aktivera det nyligen tillagda VBA-projektet.
8. Från och med nu flyttas alla inkommande e-postmeddelanden som innehåller specifika hyperlänkar automatiskt till skräppostmappen.

PST-fel kan inträffa då och då

Trots att Outlook kan skryta med olika kraftfulla funktioner kan det fortfarande inte bli av med PST-fel. Därför är det en mödosam, tråkig men oerhört viktig uppgift för Outlook-användare att skydda sina PST-data mot förlust. Ett av de mest effektiva sätten är att säkerhetskopiera sin PST-fil regelbundet, vilket kommer att bidra mycket till framtida problem. PST-återhämtning efter oförutsedd PST-korruption.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive fast SQL Server och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com