Přejít k hlavnímu obsahu

Jak přesunout e-mailovou zprávu do určené složky po přečtení v aplikaci Outlook?

Přesunutí e-mailové zprávy do určené složky po přečtení je nejlepší způsob, jak udržet složku Doručená pošta v aplikaci Outlook čistou. Pro mnoho uživatelů aplikace Outlook mají tendenci vytvářet pravidlo pro přesun těchto přečtených e-mailů. Ve skutečnosti Outlook nepodporuje tento proces průvodce pravidly. V tomto článku vám ukážeme, jak přesunout e-mailové zprávy do určené složky po přečtení pomocí kódu VBA v aplikaci Outlook.

Po přečtení v aplikaci Outlook přesuňte e-mailovou zprávu do určené složky

Karta Office – Povolte úpravy a procházení na kartách v Microsoft Office, díky čemuž bude práce hračkou
Kutools pro Outlook – Vylepšete Outlook se 100+ pokročilými funkcemi pro vynikající efektivitu
Vylepšete svůj Outlook 2021–2010 nebo Outlook 365 pomocí těchto pokročilých funkcí. Užijte si komplexní 60denní bezplatnou zkušební verzi a vylepšete svůj e-mailový zážitek!

šipka modrá pravá bublinaPo přečtení v aplikaci Outlook přesuňte e-mailovou zprávu do určené složky

E-mailové zprávy můžete přesunout do určené složky po přečtení spuštěním kódu VBA v aplikaci Outlook.

1. Nejprve musíte vytvořit nový název složky “Recenze”Ve složce Doručená pošta.

2. Otevřete složku Doručená pošta a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3. Dvojitým kliknutím soubor rozbalte Project1 > Objekty Microsoft Outlook > ThisOutlookSession k otevření VbaProject.OTM editor.

4. Poté zkopírujte a vložte níže uvedený kód VBA do editoru VbaProject.OTM, jak je znázorněno na předchozím snímku obrazovky.

Kód VBA: přesunout zprávy po přečtení

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. Poté klikněte na tlačítko Uložit tlačítko pro uložení kódu VBA a poté zavřete Microsoft Visual Basic pro aplikace okno.

6. Klikněte pravým tlačítkem na ikonu Panel nástrojů Rychlý přístupa vyberte Přizpůsobte panel nástrojů Rychlý přístup z nabídky pravého tlačítka myši. Viz screenshot:

7. V Možnosti aplikace Outlook dialogové okno, musíte:

1). Vybrat makra v Vyberte příkazy z rozbalovací seznam;

2). Vybrat Projekt1. ThisOutlookSession v poli pod Vyberte příkazy z rozbalovací seznam;

3). Klikněte na ikonu přidat tlačítko;

4). Klikněte na ikonu OK .

8. Pak můžete vidět Makro tlačítko zobrazující se v Panel nástrojů Rychlý přístup. Ujistěte se, že se nacházíte ve složce Doručená pošta, ze které chcete přesunout všechny přečtené zprávy, a klikněte na Makro tlačítko pro spuštění kódu VBA uvnitř doručené pošty.

Poznámky:

1. Tento kód VBA lze použít v aplikaci Outlook 2007, 2010 a 2013; V aplikaci Outlook 2007 však můžete přímo kliknout na ikonu Běh tlačítko pro spuštění kódu.

2. Pokud ve vašem Outlooku existuje více e-mailových účtů, lze kód VBA použít pouze v účtu, který je jako výchozí nastaven datový soubor. Výchozí datový soubor můžete zkontrolovat kliknutím Soubor > Informace > Nastavení účtu > Nastavení účtu k otevření Nastavení účtu dialogové okno. Pak jděte do Datový soubor Na kartě uvidíte, že výchozí datový soubor je označen dříve.

3. Pokud chcete změnit výchozí datový soubor na jiný e-mailový účet, vyberte a zvýrazněte účet, který chcete nastavit jako výchozí, a poté klikněte na Nastavit jako výchozí v Nastavení účtu dialogové okno.

4. Při prvním spuštění kódu VBA a zjištění, že přečtené zprávy nejsou přesunuty najednou, pokračujte kliknutím na tlačítko Makro, dokud nebudou přesunuty všechny přečtené zprávy ve složce Doručená pošta.


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook

???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP)  /  Naplánujte odesílání e-mailů  /  Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu  /  Automatické přeposílání (pokročilá pravidla)   /  Automatické přidání pozdravu   /  Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...

📨 Email management: Snadné vyvolání e-mailů  /  Blokujte podvodné e-maily podle předmětů a dalších  /  Odstranit duplicitní e-maily  /  pokročilé vyhledávání  /  Konsolidovat složky ...

📁 Přílohy ProDávkové uložení  /  Dávkové odpojení  /  Dávková komprese  /  Automaticky uložit   /  Automatické odpojení  /  Automatické komprimování ...

???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů   /  Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami  /  Minimalizujte aplikaci Outlook namísto zavírání ...

???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami  /   E-maily proti phishingu  /  🕘Zobrazit časové pásmo odesílatele ...

👩🏼‍🤝‍👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů  /  Rozdělit skupinu kontaktů na jednotlivé skupiny  /  Odeberte připomenutí narozenin ...

Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.

Více       Stažení zdarma      Nákup
 

 

 

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