Hoppa till huvudinnehåll

Hur flyttar jag e-postmeddelande till angiven mapp efter att ha läst i Outlook?

Att flytta e-postmeddelanden till en viss mapp efter att ha läst är det bästa sättet att hålla inkorgen-mappen ren i Outlook. För många Outlook-användare tenderar de att skapa en regel för att dessa lästa e-postmeddelanden flyttas. Faktum är att Outlook inte stöder denna process för processguiden. I den här artikeln visar vi dig hur du flyttar e-postmeddelanden till angiven mapp efter att ha läst med VBA-kod i Outlook.

Flytta e-postmeddelandet till den angivna mappen efter att ha läst i Outlook

Office-fliken - Aktivera flikredigering och surfning i Microsoft Office, vilket gör arbetet enkelt
Kutools för Outlook - Boosta Outlook med 100+ avancerade funktioner för överlägsen effektivitet
Förbättra din Outlook 2021 - 2010 eller Outlook 365 med dessa avancerade funktioner. Njut av en omfattande 60-dagars gratis provperiod och höj din e-postupplevelse!

pil blå höger bubblaFlytta e-postmeddelandet till den angivna mappen efter att ha läst i Outlook

Du kan flytta e-postmeddelanden till en viss mapp efter att ha läst med att köra VBA-kod i Outlook.

1. För det första måste du skapa ett nytt mappnamn “Omdömet”Under mappen Inkorg.

2. Öppna mappen Inkorg och tryck sedan på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

3. Dubbelklicka sedan för att expandera Project1 > Microsoft Outlook-objekt > ThisOutlookSession att öppna VbaProject.OTM redaktör.

4. Kopiera och klistra sedan in nedanstående VBA-kod i VbaProject.OTM-redigeraren som visas på skärmbilden ovan.

VBA-kod: flytta meddelanden efter läsning

Sub MoveInbox2Reviewed()
On Error Resume Next
Set oOutlook = CreateObject("Outlook.Application")
Set oNamespace = oOutlook.GetNamespace("MAPI")
Set oFolderSrc = oNamespace.GetDefaultFolder(olFolderInbox)
Set oFolderDst = oFolderSrc.Folders("Reviewed")
Set oFilteredItems = oFolderSrc.Items.Restrict("[UnRead] = False")
For Each oMessage In oFilteredItems
    oMessage.Move oFolderDst
Next
End Sub 

5. Klicka sedan på Save för att spara VBA-koden och stäng sedan Microsoft Visual Basic för applikationer fönster.

6. Högerklicka på Snabbåtkomstverktygsfält, och välj Anpassa snabbåtkomstverktygsfältet från högerklickmenyn. Se skärmdump:

7. I Outlook-Val dialogrutan måste du:

1). Välj Makron i Välj kommandon från rullgardinsmeny

2). Välj Projekt1. ThisOutlookSession i rutan under Välj kommandon från rullgardinsmeny

3). Klicka på Lägg till knapp;

4). Klicka på OK knapp.

8. Då kan du se Makro knappen som visas i Snabbåtkomstverktygsfält. Se till att du hittar i inkorgsmappen du vill flytta alla lästa meddelanden från och klicka sedan på Makro -knappen för att köra VBA-koden i inkorgen.

Anmärkningar:

1. Denna VBA-kod kan användas i Outlook 2007, 2010 och 2013; Men i Outlook 2007 kan du direkt klicka på Körning för att köra koden.

2. Om det finns flera e-postkonton i ditt Outlook, kan VBA-koden endast tillämpas på det konto där datafilen är inställd som standard. Du kan kontrollera standarddatafilen genom att klicka på Fil > Info > Kontoinställningar > Kontoinställningar att öppna Kontoinställningar dialog ruta. Gå sedan till Datafil på fliken ser du att standarddatafilen är markerad med innan.

3. Om du vill ändra standarddatafilen till ett annat e-postkonto, välj och markera det konto du vill ställa in som standard och klicka sedan på Ange som standard i Kontoinställningar dialog ruta.

4. När du kör VBA-koden första gången och upptäcker att de lästa meddelandena inte flyttas på en gång, fortsätt klicka på Makro-knappen tills alla lästa meddelanden i inkorgen flyttas ut.


Bästa kontorsproduktivitetsverktyg

Kutools för Outlook - Över 100 kraftfulla funktioner för att överladda din Outlook

📧 Email Automation: Frånvaro (tillgänglig för POP och IMAP)  /  Schemalägg Skicka e-post  /  Auto CC/BCC enligt regler när du skickar e-post  /  Automatisk vidarebefordran (avancerade regler)   /  Lägg automatiskt till hälsning   /  Dela automatiskt e-postmeddelanden med flera mottagare i individuella meddelanden ...

📨 Email Management: Hämta enkelt e-postmeddelanden  /  Blockera bluff-e-postmeddelanden av ämnen och andra  /  Ta bort duplicerade e-postmeddelanden  /  Avancerad Sökning  /  Konsolidera mappar ...

📁 Bilagor ProBatch Spara  /  Batch lossa  /  Batchkomprimera  /  Automatisk sparning   /  Auto Lossa  /  Automatisk komprimering ...

🌟 Gränssnittsmagi: 😊 Fler vackra och coola emojis   /  Öka din Outlook-produktivitet med flikar  /  Minimera Outlook istället för att stänga ...

👍 Underverk med ett klick: Svara alla med inkommande bilagor  /   E-postmeddelanden mot nätfiske  /  🕘Visa avsändarens tidszon ...

👩🏼‍🤝‍👩🏻 Kontakter och kalender: Lägg till kontakter i grupp från valda e-postmeddelanden  /  Dela upp en kontaktgrupp till individuella grupper  /  Ta bort påminnelser om födelsedag ...

Över 100 funktioner Vänta på din utforskning! Klicka här för att upptäcka mer.

Läs mer       Gratis nedladdning      Inköp
 

 

 

Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
What if Only want to move read messages not from the main Inbox but from an Inbox sub-folder to the "Reviewed" folder?
This comment was minimized by the moderator on the site
I used this VBA code, but now all of the emails moved to "Reviewed" are gone? Any ideas why?
This comment was minimized by the moderator on the site
has anyone had this not work the second time you tried to apply it?
This comment was minimized by the moderator on the site
Buongiorno


Esiste la versione per Outlook 365 in italiano (non so se cambia qualcosa). Grazie
This comment was minimized by the moderator on the site
What line do I add when I only want this rule to apply to emails with a subject line including a word or text?
This comment was minimized by the moderator on the site
Where's all the Dim's?????????????????????/ o.0
This comment was minimized by the moderator on the site
I tried the above method but nothing happens. I verified the folder name was accurate and in the right location. I also set my main account as default, where i will be moving read messages from. I click on the Macro button...nothing. Help. Did I miss something.
This comment was minimized by the moderator on the site
You have to activate the references in VBA
This comment was minimized by the moderator on the site
Can this VBA code be altered to move messages from an Inbox subfolder to a "Reviewed" folder in said subfolder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations