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

Autor: Siluvia Naposledy změněno: 2022-07-20

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.

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.

Odstranit 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.