Slik flytter du en e-post automatisk til en bestemt mappe etter at du har videresendt den i Outlook

Outlook-løsninger September 29, 2025

For å holde postkassen i orden, kan det hende du blir vant til å lagre de spesifikke e-postene i den spesifikke mappen. Denne artikkelen vil fortelle deg hvordan du bruker Outlook VBA til å automatisk flytte e-posten etter at du har videresendt den.

Å lagre lignende e-poster i en bestemt e-postmappe er et godt tips for å administrere en stor mengde e-poster. Det er sikkert at ulike brukere må ha sine egne kriterier for postklassifisering og administrasjon. For eksempel kan du foretrekke å klassifisere e-postene dine i henhold til dine oppfølgingshandlinger på dem, for eksempel svar, videresend eller andre. Hvis du vil automatisk flytte e-posten til en bestemt mappe, for eksempel "Videresendt", når du videresender den, kan du bruke følgende operasjoner og VBA-koder for å få den raskt."Videresendt" e-postmappe

Flytt e-posten automatisk til en bestemt mappe etter at du har videresendt den

  1. For det første, start Outlook.
  2. Bytt deretter til "Utvikler"-fanen.

OBS: Hvis du ikke finner denne kategorien, bør du gå til "Fil"> "Alternativer"> "Tilpass bånd" for å aktivere den først.

  1. Etter at denne fanen er synlig, kan du finne og klikke på "Visual Basic" -knappen under den.
  2. Deretter vil et nytt "Microsoft Visual Basic for Applications"-vindu dukke opp. I det bør du dobbeltklikke på "ThisOutlookSession" -prosjektet på venstre side for å åpne det.
  3. Etter det kan du kopiere og lime inn følgende VBA-koder i den.
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objMail_Forward(ByVal Response As Object, Cancel As Boolean)
    Dim objInboxFolder As Folder
    Dim objTargetFolder As Folder
 
    Set objInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
 
    On Error Resume Next
    Set objTargetFolder = objInboxFolder.parent.Folders("Forwarded")
    If objTargetFolder Is Nothing Then
       Set objTargetFolder = objInboxFolder.parent.Folders.Add("Forwarded")
    End If
    objMail.Categories = "Forwarded"
    objMail.Move objTargetFolder
End Sub

VBA-koder - Flytt automatisk en e-post til en bestemt mappe etter at du har videresendt den

  1. Senere vil du bli bedt om å signere det nye VBA-prosjektet.
  • For det første, bruk "Digitale sertifikater for VBA-prosjekter" innebygd verktøy for å lage et digitalt sertifikat.
  • Tilordne deretter sertifikatet til denne makroen, som følgende skjermbilde:Signer det nye VBA-prosjektet digitalt
  1. Senere kan du endre makroinnstillingene for å tillate digitalt signerte makroer.
  2. Endelig restart Outlook for å aktivere den nye makroen. Fra nå av, når du velger en e-post og klikker på "Videresend"-knappen, vil e-posten bli flyttet til "Videresend"-mappen med en gang.

Unngå uønsket Outlook PST-datakorrupsjon

En av demost problemer som har plaget Outlook-brukere i lang tid er at Outlook er utsatt for korrupsjon. Det vil si lidelse PST skade er en vanlig sak. Derfor, for å forhindre tap av Outlook-data, bør du lage en konsistent og oppdatert sikkerhetskopi av PST-dataene dine.

Forfatterintroduksjon:

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

Kommentarer er stengt.