Ako automaticky odstrániť predponu „RE“ alebo „FW“ v predmete pri odpovedaní alebo preposielaní e-mailov

Pri pokuse o odpoveď alebo preposlanie e-mailu stlačením tlačidla „Odpovedať“, „Odpovedať všetkým“ alebo „Preposlať“ musí byť pred predmet e-mailu pridaná predpona „RE“ alebo „FW“. Tento článok vám povie, ako nechať program Outlook, aby ich automaticky odstránil pomocou VBA.

V našom zvrátenom článku - „2 metódy na preposielanie e-mailov z programu Outlook bez prefixu „FW“ v predmete”, Môžete získať dve riešenia na preposielanie e-mailov bez„ FW “. Znova odosielajú e-maily a vytvárajú rýchly krok „Preposlať“. Je zrejmé, že vám obaja nemôžu povoliť automatické odstránenie „FW“, ak použijete bežné tlačidlo „Ďalej“ v skupine „Odpovedať“.

Ak teda chcete v predmete predmetu odstrániť predponu „RE“ alebo „FW“, predvolene ich musíte vymazať zakaždým, keď kliknete na tlačidlo „Odpovedať“, „Odpovedať všetkým“ alebo „Ďalej“. Bude to dosť nepríjemné. Našťastie môžete pomocou programu Outlook VBA automaticky odstrániť konkrétne slová z predmetu pošty. Čítajte ďalej, aby ste dosiahli podrobné kódy a kroky.

Pri preposielaní alebo odpovedaní na e-maily automaticky odstrániť predponu „FW“ alebo „RE“

1. Najprv spustite Outlook a prejdite na kartu „Vývojár“.
2. Potom nájdete a kliknite na tlačidlo „Visual Basic“.
3. Ďalej v novom okne by ste mali dvakrát kliknúť na projekt „ThisOutlookSession“.
4. Následne je potrebné do nej skopírovať a vložiť nasledujúce 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. Potom by ste mali do tohto makra podpísať digitálny certifikát.
6. Neskôr môžete opustiť okno „Visual Basic“ a nakonfigurovať program Outlook tak, aby umožňoval iba digitálne podpísané makrá.
7. Nakoniec to môžete vyskúšať.

• Najskôr vyberte e-mail a stlačte tlačidlo „Odpovedať“, „Odpovedať všetkým“ alebo „Poslať ďalej“
• Potom sa otvorí odpovedajúca alebo preposielajúca správa. Poštu môžete zostaviť ako obvykle.
• Po kliknutí na tlačidlo „Odoslať“ sa zobrazí okno so správou, napríklad nasledujúca snímka obrazovky:
• Ak vyberiete možnosť „Áno“, predpona „RE“ alebo „FW“ sa automaticky odstráni. Ak vyberiete možnosť „Nie“, predpona nebude odstránená.

Čo nerobiť pri rokovaní s e-mailmi programu Outlook

Program Outlook je zraniteľný, preto by ste pri manipulácii s e-mailmi v programe Outlook mali byť opatrní. Napríklad, ak dostávate e-maily z neznámych zdrojov, radšej ich neotvárajte, nehovoriac o tom, že kliknete na vložené odkazy alebo si stiahnete priložené súbory. Tento druh e-mailov môže obsahovať škodlivé makrá, vírusy alebo malware, ktoré môžu bleskovo zničiť vaše údaje Outlooku. Znamená to, že budete trpieť Poškodenie súboru programu Outlook. V tom okamihu je vaším jedinečným strediskom použitie výkonného a renomovaného nástroja na opravu, napríklad DataNumen Outlook Repair.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť poškodený mdf db a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S