Sådan flyttes de indgående e-mails automatisk med specifikke hyperlinks til uønsket e-mail-mappe

Hvis du automatisk vil flytte de indkommende e-mails med specifikke hyperlinks i meddelelsesteksten til mappen Uønsket e-mail i din Outlook, kan du bruge metoden introduceret i denne artikel.

Nogle gange markerer Outlook Junk-e-mail-filter fejlagtigt de ægte e-mails som junks. Således foretrækker du måske at indstille niveauet for din Outlook-uønsket e-mail-beskyttelse til lav. Men i dette tilfælde genkendes mange uønskede e-mails muligvis ikke af Outlook-uønsket e-mail-filter, f.eks. E-mails med risikable hyperlinks. Ikke alene vil det rod i din indbakke-mappe, men det kan også inficere dine Outlook-data, hvis du klikker på linkene. Derudover, hvis du ikke kan lide at modtage e-mails, der indeholder specifikke hyperlinks, kan du måske også flytte dem til mappen Uønsket e-mail. Derfor vil vi her fokusere på dette problem og guide dig, hvordan du bruger VBA til automatisk at flytte de indgående e-mails med specifikke hyperlinks til uønsket e-mail-mappe.

Flyt automatisk e-mails med specifikke hyperlinks til uønsket e-mail-mappe

1. Start din Outlook-applikation lige fra starten.
2. Tryk derefter på "Alt + F11" -tasten i hovedvinduet i Outlook.
3. I pop op-vinduet “Microsoft Visual Basic for Applications” åbnes derefter projektet “ThisOutlookSession”.
4. Kopier derefter og indsæt følgende VBA-kode i dette projektvindue.

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. Derefter skal du underskrive denne kode som normalt.
6. Senere ændre makroindstillingerne i Outlook for at tillade signerede makroer.
7. Genstart til sidst din Outlook for at aktivere det nyligt tilføjede VBA-projekt.
8. Fra nu af flyttes alle indgående e-mails, der indeholder specifikke hyperlinks, automatisk til uønsket e-mail-mappe.

PST-fejl kan forekomme nu og da

Trods at kunne prale af forskellige kraftfulde funktioner, kan Outlook stadig ikke fjerne PST-fejl. Derfor er det en besværlig, kedelig, men afgørende opgave for Outlook-brugere at beskytte dine PST-data mod tab. En af de mest effektive måder er at sikkerhedskopiere din PST-fil regelmæssigt, hvilket vil bidrage meget til fremtidig PST-genopretning efter uventet PST-korruption.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder fastsætte SQL Server og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com