Hvordan automatisk flytte innkommende e-poster med spesifikke hyperkoblinger til søppelpostmappen

Outlook-løsninger September 29, 2025

Hvis du vil automatisk flytte innkommende e-poster med spesifikke hyperkoblinger i meldingsteksten til søppelpostmappen i Outlook, kan du bruke metoden introdusert i denne artikkelen.

Noen ganger vil Outlook søppelpostfilteret feilaktig merke ekte e-poster som søppelpost. Derfor kan det hende du foretrekker å sette nivået på søppelpostbeskyttelsen i Outlook til lavt. Men i dette tilfellet kan det hende at mange søppelposter ikke gjenkjennes av søppelpostfilteret i Outlook, for eksempel e-poster med risikable hyperkoblinger. Ikke bare vil det rote til innboksmappen din, men det kan også infisere Outlook-dataene dine hvis du klikker på koblingene. I tillegg, hvis du misliker å motta e-poster som inneholder spesifikke hyperkoblinger, vil du kanskje også flytte dem til søppelpostmappen. Derfor vil vi her fokusere på dette problemet og veilede deg hvordan du bruker VBA til å automatisk flytte innkommende e-poster med spesifikke hyperkoblinger til søppelpostmappen.

Flytt automatisk innkommende e-poster med spesifikke hyperkoblinger til søppelpostmappen

Flytt automatisk e-postene med spesifikke hyperkoblinger til søppelpostmappen

  1. Start Outlook-applikasjonen helt i begynnelsen.
  2. Deretter trykker du på "Alt + F11" i hovedvinduet i Outlook.
  3. Deretter, i popup-vinduet "Microsoft Visual Basic for Applications" åpner du prosjektet "ThisOutlookSession".
  4. Kopier og lim deretter inn følgende VBA-kode i dette prosjektvinduet.
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

VBA-kode - Flytt automatisk innkommende e-poster med spesifikke hyperkoblinger til søppelpostmappen

  1. Etter det signerer du denne koden som vanlig.
  2. Endre senere Outlook-makroinnstillinger for å tillate signerte makroer.
  3. Etter hvert restart Outlook for å aktivere det nylig lagt til VBA-prosjektet.
  4. Fra nå av vil alle innkommende e-poster som inneholder spesifikke hyperkoblinger automatisk bli flyttet til søppelpostmappen.

PST-feil kan oppstå nå og da

Til tross for å skryte av ulike kraftige funksjoner, kan Outlook fortsatt ikke bli kvitt PST-feil. Derfor er det en vanskelig, kjedelig, men svært viktig oppgave for Outlook-brukere å beskytte PST-dataene dine mot tap. En av demost effektiv måte er å sikkerhetskopiere PST-filen din med jevne mellomrom, noe som vil bidra mye i fremtiden PST gjenoppretting etter uventet PST-korrupsjon.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert fastsette SQL Server og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med

Kommentarer er stengt.