Sådan automatisk flytter du specifikke e-mails til specifikke mapper efter at have læst dem i Outlook

Mange brugere ønsker at flytte specifikke e-mails fra indbakke til andre specifikke mapper efter at have læst dem, hvilket vil holde indbakke-mailmappen ren. Men altid at flytte manuelt vil være besværligt. Denne artikel vil afsløre en hurtig metode til at realisere det automatisk.

Som sædvanligt vil alle indgående e-mails lande i indbakke-mailmappen i Outlook. Så i dette tilfælde vil mappen Indbakke blive rodet og blive fyldt med tiden. Oftere end ikke kan du enten manuelt flytte specifikke e-mails til andre mailmapper eller oprette en Outlook-regel for automatisk at flytte specifikke e-mails, så snart de ankommer til din postkasse. Det er meget mere bekvemt at anvende en sådan regel, men du skal gå til de specifikke mapper for at få adgang til de nye mails. I lyset af dette problem kan du håbe, at Outlook er i stand til automatisk at flytte specifikke e-mails fra indbakke til andre e-mail-mapper, når du har læst dem i indbakke i stedet for efter de ankommer. Men Outlook-reglen kan ikke indse det. Heldigvis kan du bruge Outlook VBA til at gøre det til virkelighed. Her er koderne samt de udførlige trin.

Flyt automatisk specifikke e-mails til bestemte mapper efter at have læst dem

1. Start starten Outlook fra starten, og skift til fanen "Udvikler".
2. Tryk derefter på knappen "Visual Basic" på denne fane for at åbne VBA-editorvinduet.
3. Næste i det nye vindue bør du finde "ThisOutlookSession" -projektet og dobbeltklikke for at åbne det.
4. Kopier og indsæt efterfølgende følgende VBA-koder i den.

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim deFolder As Folder
 
    'Ensure the email marked as read
    If TypeOf Item Is MailItem And Item.UnRead = False Then
 
    'Check the email subject and then move to specific folder
    'You can change these conditions and folders as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Test")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "worklog") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("WorkLog")
       Item.Move deFolder
    End If
 
    If InStr(LCase(Item.Subject), "report") > 0 Then
       Set deFolder = Session.GetDefaultFolder(olFolderInbox).Parent.Folders("Report")
       Item.Move deFolder
    End If
End Sub

5. Derefter skal du underskrive denne kode digitalt.

• Brug først det indbyggede værktøj "Digitale certifikater til VBA-projekter" til at oprette et nyt certifikat.
• Tildel derefter dette certifikat til den aktuelle makro. Udfør trinene vist på billedet nedenfor:

6. Senere bør du ændre makroindstillingerne til kun at aktivere digitalt signerede makroer.
7. Endelig skal du genstarte Outlook for at aktivere dette VBA-projekt. Fra nu af vil alle indgående e-mails stadig lande i indbakken. Men så snart den nye e-mail er læst, vil den automatisk blive flyttet til de specifikke mapper.

Smarte tricks til at løse Outlook-problemer

Da Outlook er tilbøjeligt til at opstå fejl, længes mange brugere efter smarte tips til at håndtere hyppige problemer. Normalt inkluderer de mest almindelige teknikker oprettelse af en ny mailprofil, deaktivering af tredjeparts tilføjelsesprogrammer, reparation af Office-pakken og brug af reparationsværktøjet til indbakken, Scanpst.exe. Hvis det indbyggede værktøj fejler, kan du ty til et andet mere effektivt værktøj. korrupt Outlook reparationsværktøjSom DataNumen Outlook Repair.

Forfatter Introduktion:

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