Kako automatski ukloniti prefiks "RE" ili "FW" u predmetu kada odgovarate ili prosljeđujete e-poštu

Kada pokušate da odgovorite ili prosledite e-poštu pritiskom na dugme „Odgovori“, „Odgovori svima“ ili „Prosledi“, ispred predmeta e-pošte mora biti dodat prefiks „RE“ ili „FW“. Ovaj članak će vam reći kako dozvoliti da ih Outlook automatski uklanja pomoću VBA.

U našem prethodnom članku – “2 Metode za prosljeđivanje Outlook e-pošte bez prefiksa “FW” u predmetu“, možete dobiti dva rješenja za prosljeđivanje e-pošte bez “FW”. Oni ponovo šalju e-poruke i kreiraju brzi korak "Proslijedi". Očigledno je da vam oba ne mogu dozvoliti da automatski uklonite “FW” ako koristite normalno dugme “Forward” u grupi “Respond”.

Stoga, prema zadanim postavkama, ako želite da uklonite prefiks “RE” ili “FW” u temi kada kliknete na dugme “Odgovori”, “Odgovori svima” ili “Proslijedi”, morate ih svaki put ručno izbrisati. To će biti prilično problematično. Srećom, možete koristiti Outlook VBA za automatsko uklanjanje određenih riječi u predmetu pošte. Čitajte dalje da biste dobili detaljne kodove i korake.

Automatsko uklanjanje prefiksa “FW” ili “RE” prilikom prosljeđivanja ili odgovaranja na e-poštu

1. Za početak, pokrenite Outlook i idite na karticu "Programer".
2. Zatim možete pronaći i kliknuti na dugme "Visual Basic".
3. Zatim u novom prozoru trebate dvaput kliknuti na projekt “ThisOutlookSession”.
4. Nakon toga, morate kopirati i zalijepiti sljedeće VBA kodove u njega.

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. Nakon toga, trebali biste potpisati digitalni certifikat za ovaj makro.
6. Kasnije možete izaći iz prozora „Visual Basic“ i konfigurirati Outlook da omogući samo digitalno potpisane makroe.
7. Konačno možete probati.

• Prvo odaberite e-poštu i pritisnite dugme „Odgovori“, „Odgovori svima“ ili „Prosledi“.
• Tada će se otvoriti poruka za odgovor ili prosljeđivanje. Možete sastaviti poštu kao i obično.
• Kada kliknete na dugme „Pošalji“, dobićete okvir sa porukom, kao što je sledeći snimak ekrana:
• Ako odaberete “Yes”, prefiks “RE” ili “FW” će se automatski ukloniti. Ako odaberete “Ne”, prefiks se neće ukloniti.

Šta ne treba raditi u radu s Outlook e-poštom

Outlook je ranjiv, pa treba da budete oprezni kada rukujete Outlook poštom. Na primjer, ako primate e-poštu iz nepoznatih izvora, bolje je da je ne otvarate, da ne spominjemo da kliknete na ugrađene veze ili preuzmete priložene datoteke. Ova vrsta e-poruka može sadržavati zlonamjerne makroe, viruse ili zlonamjerni softver, koji mogu brzo uništiti vaše Outlook podatke. To znači da ćete patiti Oštećenje Outlook datoteke. U tom trenutku, vaše jedinstveno rešenje je da koristite moćan i renomiran alat za popravku, kao što je DataNumen Outlook Repair.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti oštećeni mdf db i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com