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
- Automatizujte zasílání e-mailů pomocí Auto CC / BCC, Automatické předávání podle pravidel; poslat Automatická odpověď (Mimo kancelář) bez nutnosti výměnného serveru...
- Získejte připomenutí jako Varování BCC když odpovídáte všem, když jste v seznamu BCC, a Připomenout, když chybí přílohy pro zapomenuté přílohy...
- Zlepšete efektivitu e-mailu pomocí Odpovědět (vše) s přílohami, Automatické přidání pozdravu nebo data a času do podpisu nebo předmětu, Odpovědět na více e-mailů...
- Zjednodušte zasílání e-mailů pomocí Připomenout e-maily, Nástroje pro připojení (Komprimovat vše, Automaticky uložit vše...), Odebrat duplikáty, a Rychlá zpráva...
Po 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
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? 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 Pro: Dá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.