Jak odstranit aktuálně upravený koncept bez odstranění původního e-mailu v aplikaci Outlook?

Autor: Siluvia Naposledy změněno: 2024-09-13

Microsoft Outlook 2013 a novější verze otevírají e-mailové odpovědi ve výchozím nastavení v podokně čtení. Předpokládejme, že odpovídáte na e-mail a po 3 minutách Outlook automaticky uloží odpověď jako koncept. Pak se ale rozhodnete tuto odpověď neposílat a smažete koncept spolu s ní. Někteří uživatelé aplikace Outlook mají tendenci kliknout na tlačítko Odstranit na kartě Domů, aby odstranili koncept z podokna čtení (viz snímek obrazovky níže). Ale tato akce také odstraní původní e-mail.

odstranit aktuálně upravený koncept bez odstranění původního e-mailu v aplikaci Outlook

V tomto tutoriálu poskytujeme dva kódy VBA, které vám pomohou přidat dva příkazy na panel nástrojů Rychlý přístup pro rychlé odstranění aktuálně upraveného konceptu bez odstranění původního e-mailu v aplikaci Outlook.

Odstranit aktuálně upravený koncept v podokně čtení
Odstranit aktuálně upravený koncept v novém okně

Odstranit aktuálně upravovaný koncept v podokně čtení

Pokud jste zvyklí odpovídat na e-maily v podokně čtení, můžete použít následující kód VBA k odstranění aktuálně upraveného konceptu bez odstranění původního e-mailu v Outlooku.

1. Spusťte svůj Outlook a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte Project1 > Objekty Microsoft Outlook > ThisOutlookSession k otevření ThisOutlookSession (kód) okno. Poté zkopírujte následující kód VBA do okna Kód.

Kód VBA: Odstraňte aktuálně upravený koncept v podokně čtení

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220713
Public WithEvents GInlineMail As MailItem
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub
Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub
Sub InlineDiscard()
  On Error Resume Next
  If Not GInlineMail Is Nothing And Not GInlineMail.Sent Then
    GInlineMail.UnRead = False
    GInlineMail.Delete
  End If
  Set GInlineMail = Nothing
End Sub

3. Uložte kód a stiskněte Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

Nyní potřebujete tlačítko ke spuštění makra.

4. cvaknutí Přizpůsobte panel nástrojů Rychlý přístup > Další příkazy.

5. V Možnosti aplikace Outlook dialogové okno, musíte nakonfigurovat následujícím způsobem.

5.1) V Vyberte příkazy z rozbalovacího seznamu vyberte makra;

5.2) Vyberte makro, které jste přidali v předchozím kroku;

5.3) Klikněte na přidat tlačítko pro přidání tohoto makra do souboru Přizpůsobte panel nástrojů Rychlý přístup box.

6. Nechte skript vybraný v pravém poli a potom klepněte na Upravit tlačítko. V Tlačítko Upravit v dialogovém okně přiřaďte skriptu nové tlačítko a klikněte OK.

7. cvaknutí OK v Možnosti aplikace Outlook uložte změny.

Tlačítko, které jste zadali v kroku 6, se poté přidá do Panel nástrojů Rychlý přístup.

8. Pro aktivaci kódu restartujte aplikaci Outlook.

Od této chvíle můžete při odpovídání na e-mail v podokně čtení odstranit odpověď spolu s konceptem kliknutím na tlačítko na panelu nástrojů Rychlý přístup.

Poznámka: Po spuštění skriptu musíte v seznamu adresátů vybrat jiný e-mail, aby se obnovilo zobrazení pošty v aktuální složce.

AI Mail Assistant v aplikaci Outlook: Chytřejší odpovědi, jasnější komunikace (kouzlo na jedno kliknutí!) UVOLNIT

Zjednodušte své každodenní úkoly Outlooku pomocí AI Mail Assistant od Kutools pro Outlook. Tento výkonný nástroj se učí z vašich minulých e-mailů, aby nabídl inteligentní a přesné odpovědi, optimalizoval obsah vašich e-mailů a pomohl vám bez námahy navrhovat a upravovat zprávy.

Tato funkce podporuje:

Chytré odpovědi: Získejte odpovědi vytvořené z vašich minulých konverzací – přizpůsobené, přesné a připravené k použití.
Vylepšený obsah: Automaticky upravte text e-mailu tak, aby byl srozumitelný a účinný.
Skládání bez námahy: Stačí zadat klíčová slova a nechat AI, aby se postarala o zbytek, s několika styly psaní.
Inteligentní rozšíření: Rozšiřte své myšlenky pomocí kontextových návrhů.
Shrnutí: Získejte okamžitě stručné přehledy dlouhých e-mailů.
Globální dosah: Snadno překládejte své e-maily do jakéhokoli jazyka.

Tato funkce podporuje:

Chytré e-mailové odpovědi
Optimalizovaný obsah
Koncepty založené na klíčových slovech
Inteligentní rozšíření obsahu
Emailová sumarizace
Vícejazyčný překlad

Nejlepší ze všeho je, že tato funkce je zcela uvolnit navždy! Nečekej —stáhněte si AI Mail Assistant nyní a užívejte si!

a name="a2"> Smazat aktuálně upravený koncept v novém okně

Pokud chcete odpovídat na e-maily v novém okně. Následující kód VBA může pomoci snadno odstranit e-mail s odpovědí spolu s konceptem v aplikaci Outlook.

1. Spusťte svůj Outlook a stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul. Poté zkopírujte následující kód VBA do okna modulu.

Sub DeleteDraftMessageWindow()
'Updated by Extendoffice 20220713
  Dim xInspector As Inspector
  Dim xMail As MailItem
  On Error Resume Next
  Set xInspector = Application.ActiveInspector
  If xInspector Is Nothing Then Exit Sub
  Set xMail = xInspector.CurrentItem
  If Not xMail.Sent Then
    xMail.UnRead = False
    xMail.Delete
  End If
End Sub

3. zmáčkni Další + F11 zavřít Microsoft Visual Basic pro aplikace okno.

Nyní potřebujete tlačítko ke spuštění makra.

4. cvaknutí Domů > Nový Email vytvořit nový e-mail. V okně zprávy klikněte na Přizpůsobte panel nástrojů Rychlý přístup > Další příkazy.

5. Poté opakujte výše uvedené kroky od 5 do 7 pro vytvoření tlačítka pro skript a přidejte jej do Panel nástrojů Rychlý přístup okna zprávy.

Od této chvíle můžete při odpovídání na e-mail v okně nové zprávy tuto odpověď smazat spolu s konceptem kliknutím na tlačítko na panelu nástrojů Rychlý přístup.

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

Nejnovější zprávy: Spuštění Kutools pro Outlook Volná verze!

Vyzkoušejte zcela nové Kutools pro Outlook ZDARMA verze s více než 70 neuvěřitelnými funkcemi, kterou můžete používat NAVŽDY! Kliknutím stáhnete hned!

🤖 Kutools AI : Využívá pokročilou technologii umělé inteligence k snadnému zpracování e-mailů, včetně odpovídání, shrnutí, optimalizace, rozšiřování, překládání a vytváření e-mailů.

???? Automatizace e-mailu: Automatická odpověď (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: Připomenout e-maily / 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ů / Připomeňte si, když přijdou důležité e-maily / 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 ...

Okamžitě odemkněte Kutools pro Outlook jediným kliknutím –trvale volný. Nečekejte, stáhněte si nyní a zvyšte svou efektivitu!

Seznam funkcí Kutools pro Outlook Stáhněte si bezplatnou verzi Upgradujte na Professional