Preskoči na glavno vsebino

Kako premakniti e-poštno sporočilo v določeno mapo po branju v Outlooku?

Avtor: Siluvia Zadnja sprememba: 2014-09-03

Premikanje e-poštnega sporočila v določeno mapo po branju je najboljši način za vzdrževanje mape Prejeto v Outlooku. Za veliko uporabnikov Outlooka ponavadi ustvarijo pravilo za premikanje teh prebranih e-poštnih sporočil. Outlook dejansko ne podpira postopka čarovnika za pravila. V tem članku vam bomo pokazali, kako e-poštna sporočila premaknete v določeno mapo po branju s kodo VBA v Outlooku.

Po branju v Outlooku premaknite e-poštno sporočilo v določeno mapo

Zavihek Office – omogočite urejanje in brskanje z zavihki v Microsoft Officeu, kar olajša delo
Kutools za Outlook – izboljšajte Outlook s 100+ naprednimi funkcijami za vrhunsko učinkovitost
Izboljšajte svoj Outlook 2021 - 2010 ali Outlook 365 s temi naprednimi funkcijami. Uživajte v obsežnem 60-dnevnem brezplačnem preizkusu in izboljšajte svojo e-poštno izkušnjo!

puščica modri desni mehurčekPo branju v Outlooku premaknite e-poštno sporočilo v določeno mapo

Po branju z zagnano kodo VBA v Outlooku lahko e-poštna sporočila premaknete v določeno mapo.

1. Najprej morate ustvariti novo ime mape “Recenziral"V mapi Prejeto.

2. Odprite mapo Prejeto in pritisnite na druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Nato dvokliknite za razširitev Project1 > Predmeti Microsoft Outlook > Ta OutlookSession da odprete VbaProject.OTM urednik.

4. Nato kopirajte in prilepite spodnjo kodo VBA v urejevalnik VbaProject.OTM, kot je prikazano na zgornjem posnetku zaslona.

Koda VBA: premaknite sporočila po branju

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. Nato kliknite na Shrani , da shranite kodo VBA in nato zaprete Microsoft Visual Basic za aplikacije okno.

6. Z desno miškino tipko kliknite Orodna vrstica za hitri dostopin izberite Prilagodite orodno vrstico za hitri dostop v meniju z desnim klikom. Oglejte si posnetek zaslona:

7. V Ljubljani Outlook Možnosti pogovorno okno, morate:

1). Izberite Makri v Izberite ukaze iz spustni seznam;

2). Izberite Projekt1. ThisOutlookSession v polju pod Izberite ukaze iz spustni seznam;

3). Kliknite Dodaj gumb;

4). Kliknite OK gumb.

8. Potem lahko vidite Makro gumb, prikazan v Orodna vrstica za hitri dostop. Prepričajte se, da poiščete v mapi Prejeto, iz katere želite premakniti vsa prebrana sporočila, nato kliknite Makro za zagon kode VBA v mapi Prejeto.

Opombe:

1. To kodo VBA je mogoče uporabiti v Outlooku 2007, 2010 in 2013; V programu Outlook 2007 pa lahko neposredno kliknete Run za zagon kode.

2. Če v vašem Outlooku obstaja več e-poštnih računov, lahko kodo VBA uporabite samo v računu, katerega podatkovna datoteka je nastavljena kot privzeta. Privzeto podatkovno datoteko lahko preverite s klikom file > Informacije > Nastavitve računa > Nastavitve računa da odprete Nastavitve računa pogovorno okno. Potem pojdite na Podatkovna datoteka na zavihku boste videli, da je privzeta podatkovna datoteka označena z prej.

3. Če želite privzeto podatkovno datoteko spremeniti v drug e-poštni račun, izberite in označite račun, ki ga želite nastaviti kot privzeti, nato kliknite Nastavi na privzeto v Nastavitve računa pogovorno okno.

4. Ko prvič zaženete kodo VBA in ugotovite, da se prebrana sporočila ne premaknejo naenkrat, nadaljujte s klikom na gumb Makro, dokler se vsa prebrana sporočila v mapi Prejeto ne premaknejo.


Najboljša pisarniška orodja za produktivnost

Kutools za Outlook - Več kot 100 zmogljivih funkcij za nadgradnjo vašega Outlooka

🤖 AI poštni pomočnik: Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Odsoten (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Enostaven priklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Povečajte Outlookovo produktivnost s pogledi z zavihki  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Over 100 Lastnosti Čakajte na svoje raziskovanje! Kliknite tukaj, če želite odkriti več.

 

 

 

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