2 rychlé tipy k automatickému odstranění původního e-mailu po jeho odpovědi v aplikaci Outlook

Někteří uživatelé dávají přednost smazání původního e-mailu poté, co odpověděli, že odpověď obsahovala informace původního e-mailu. Tento článek bude sdílet 2 rychlé způsoby, jak to realizovat automaticky.

Ve výchozím nastavení je Outlook nastaven na automatické zahrnutí původní zprávy do odpovědi. V takovém případě by mnoho uživatelů chtělo smazat původní zprávu a odpověď nechali pouze ve své poštovní schránce. Nejenže to může udržet jejich poštovní schránku v malém rozměru, ale také to umožní jejich e-maily v pořádku. Pokud se zdráháte ručně mazat původní e-maily, můžete je automatizovat pomocí následujících 2 triků.

Tip 1: Použijte Rychlý krok

Outlook přichází s nativním rychlým krokem „Odpovědět a odstranit“, jako je následující obrázek. Tento rychlý krok může automaticky odstranit původní zprávu a zobrazit odpověď, když na ni kliknete.

Pokud nemůžete tento rychlý krok najít, je velmi pravděpodobné, že jste jej dříve omylem smazali. Můžete jej také znovu vytvořit podle následujících kroků.

1. Nejprve klikněte na tlačítko „Vytvořit nový“ ve skupině „Rychlé kroky“.
2. Poté v rozevíracím dialogovém okně přiřaďte název, například „Odpovědět a odstranit“.
3. Dále v sekci „Akce“ vyberte možnost „Odpovědět“.
4. Poté klikněte na tlačítko „Přidat akci“.
5. A poté přidejte akci „Odstranit zprávu“.
6. Nakonec stiskněte tlačítko „Uložit“.

Tímto způsobem musíte vždy použít tento rychlý krok k odpovídání na e-maily. Pokud stále chcete použít standardní tlačítko „Odpovědět“ ve skupině „Odpovědět“ k dosažení „Odpovědět a odstranit“, můžete použít následující prostředky.

Tip 2: Použijte Outlook VBA

1. Na prvním místě stiskněte v aplikaci Outlook klávesy „Alt + F11“.
2. Poté v následujícím okně editoru VBA otevřete projekt „ThisOutlookSession“.
3. Dále do něj zkopírujte a vložte následující kódy VBA.

Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If TypeOf Application.ActiveExplorer.Selection.Item(1) Is MailItem Then
       Set objMail = Application.ActiveExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    objMail.Delete
    'If you want to only delete the specific email when replying it
    'You can specify the condition of the email as per your needs
    'like the following lines
    'If (InStr(LCase(objMail.Subject), "test") > 0) Then
    ' objMail.Delete
    'End If
End Sub

4. Poté tento kód digitálně podepište.
5. Kromě toho nezapomeňte změnit nastavení maker aplikace Outlook, abyste povolili digitálně podepsaná makra.
6. Nakonec restartujte Outlook, abyste aktivovali nový projekt VBA. Odteď, když budete odpovídat na e-mail stisknutím standardního tlačítka „Odpovědět“, bude původní e-mail automaticky smazán.

Obnovte svá kompromitovaná data aplikace Outlook

Pokud narazíte na náhlé Výhledové poškození Neočekávaně se musíte snažit co nejlépe obnovit data z Outlooku. Jako obvykle je nejlepším a nejjednodušším přístupem obnovení ze záloh. Pokud ale nemáte aktuální zálohu dat, můžete se také obrátit na zkušený nástroj pro opravu, jako je DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com