Jak automaticky odstranit předponu „RE“ nebo „FW“ v předmětu při odpovídání nebo přeposílání e-mailů

Když se pokusíte odpovědět nebo přeposlat e-maily stisknutím tlačítka „Odpovědět“, „Odpovědět všem“ nebo „Přeposlat“, musí být před předmět e-mailu přidána předpona „RE“ nebo „FW“. Tento článek vám řekne, jak nechat aplikaci Outlook automaticky je odstranit pomocí VBA.

V našem všudypřítomném článku - „2 metody předávání e-mailů aplikace Outlook bez předpony „FW“ v předmětu”, Můžete získat dvě řešení pro přeposílání e-mailů bez„ FW “. Znovu odesílají e-maily a vytvářejí rychlý krok „Přeposlat“. Je zřejmé, že vám oba nemohou povolit automatické odstranění „FW“, pokud použijete normální tlačítko „Vpřed“ ve skupině „Odpovědět“.

Pokud tedy chcete ve výchozím nastavení odstranit předponu „RE“ nebo „FW“ při kliknutí na tlačítka „Odpovědět“, „Odpovědět všem“ nebo „Předat dál“, musíte je ve výchozím nastavení pokaždé ručně smazat. Bude to docela problematické. Naštěstí můžete pomocí aplikace Outlook VBA automaticky odebrat konkrétní slova v předmětu pošty. Čtěte dále a dosáhnete podrobných kódů a kroků.

Automaticky odebrat předponu „FW“ nebo „RE“ při přeposílání nebo odpovědi na e-maily

1. Pro začátek spusťte Outlook a přejděte na kartu „Vývojář“.
2. Poté můžete najít a kliknout na tlačítko „Visual Basic“.
3. Dále v novém okně byste měli dvakrát kliknout na projekt „ThisOutlookSession“.
4. Následně do něj musíte zkopírovat a vložit následující kódy VBA.

Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim strSubject As String
 
    If InStr(Item.Subject, "RE") > 0 Then
       'If you don't want the prompt,
       'You can remove the MsgBox line and its correspoding "Else … End If" lines.
       If MsgBox("Do you want to remove the prefix 'RE'?", vbYesNo) = vbYes Then
          strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
       Else
          strSubject = Item.Subject
       End If
    End If
 
    If InStr(Item.Subject, "FW") > 0 Then
       If MsgBox("Do you want to remove the prefix 'FW'?", vbYesNo) = vbYes Then
          strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
       Else
          strSubject = Item.Subject
       End If
    End If
 
    Item.Subject = Trim(strSubject)
    Item.Save
End Sub

5. Poté byste měli k tomuto makru podepsat digitální certifikát.
6. Později můžete opustit okno „Visual Basic“ a nakonfigurovat Outlook tak, aby povolil pouze digitálně podepsaná makra.
7. Nakonec to můžete vyzkoušet.

• Nejprve vyberte e-mail a stiskněte tlačítko „Odpovědět“, „Odpovědět všem“ nebo „Přeposlat“
• Poté se otevře odpověď nebo přeposlání zprávy. Poštu můžete skládat jako obvykle.
• Po kliknutí na tlačítko „Odeslat“ se zobrazí okno se zprávou, například následující snímek obrazovky:
• Pokud vyberete „Ano“, předpona „RE“ nebo „FW“ bude automaticky odstraněna. Pokud vyberete možnost „Ne“, předpona nebude odstraněna.

Co nedělat při vyřizování e-mailů aplikace Outlook

Aplikace Outlook je zranitelná, proto byste měli při zacházení s e-maily aplikace Outlook postupovat opatrně. Pokud například dostáváte e-maily z neznámých zdrojů, raději je neotevírejte, nemluvě o klikání na vložené odkazy nebo stažení přiložených souborů. Tento druh e-mailů může obsahovat škodlivá makra, viry nebo malware, které mohou bleskově zničit vaše data aplikace Outlook. Znamená to, že budete trpět Poškození souboru aplikace Outlook. V tomto okamžiku je vaším jedinečným prostředkem použití výkonného a renomovaného nástroje pro opravy, 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ě opravit poškozený mdf db a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com