Kaip automatiškai pašalinti priešdėlį „RE“ arba „FW“ temoje atsakant arba persiunčiant el.

Kai bandote atsakyti arba persiųsti el. laiškus paspausdami mygtuką „Atsakyti“, „Atsakyti visiems“ arba „Persiųsti“, el. laiško temos priekyje turi būti pridėtas priešdėlis „RE“ arba „FW“. Šiame straipsnyje bus pasakyta, kaip leisti „Outlook“ juos automatiškai pašalinti naudojant VBA.

Ankstesniame mūsų straipsnyje – „2 „Outlook“ el. laiškų persiuntimo būdai be „FW“ priešdėlio temoje“, galite rasti du būdus, kaip persiųsti el. laiškus be „FW“. Jie iš naujo siunčia el. laiškus ir atitinkamai sukuria greitą žingsnį „Persiųsti“. Akivaizdu, kad abu jie negali leisti automatiškai pašalinti „FW“, jei naudojate įprastą mygtuką „Persiųsti“ grupėje „Atsakyti“.

Todėl pagal numatytuosius nustatymus, jei norite pašalinti temos priešdėlį „RE“ arba „FW“, kai spustelėsite mygtuką „Atsakyti“, „Atsakyti visiems“ arba „Persiųsti“, kiekvieną kartą turėsite juos ištrinti rankiniu būdu. Tai bus gana varginanti. Laimei, galite naudoti „Outlook VBA“, kad automatiškai pašalintumėte konkrečius žodžius iš pašto temos. Skaitykite toliau, kad gautumėte išsamius kodus ir veiksmus.

Automatiškai pašalinkite priešdėlį „FW“ arba „RE“, kai siunčiate arba atsakote el

1. Norėdami pradėti, paleiskite „Outlook“ ir eikite į skirtuką „Kūrėjas“.
2. Tada galite rasti ir spustelėti mygtuką „Visual Basic“.
3. Tada naujame lange dukart spustelėkite projektą „ThisOutlookSession“.
4. Vėliau turite nukopijuoti ir įklijuoti šiuos VBA kodus.

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. Po to turėtumėte pasirašyti šios makrokomandos skaitmeninį sertifikatą.
6. Vėliau galite išeiti iš „Visual Basic“ lango ir sukonfigūruoti „Outlook“, kad įgalintų tik skaitmeniniu būdu pasirašytas makrokomandas.
7. Pagaliau galite pabandyti.

• Pirmiausia pasirinkite el. laišką ir paspauskite mygtuką „Atsakyti“, „Atsakyti visiems“ arba „Persiųsti“.
• Tada atsidarys atsakymo arba persiuntimo pranešimas. Galite rašyti laišką kaip įprasta.
• Spustelėję mygtuką „Siųsti“, gausite pranešimo laukelį, tokį kaip ši ekrano kopija:
• Jei pasirinksite „Taip“, priešdėlis „RE“ arba „FW“ bus automatiškai pašalintas. Jei pasirinksite „Ne“, priešdėlis nebus pašalintas.

Ko nedaryti dirbant su „Outlook“ el

„Outlook“ yra pažeidžiama, todėl turėtumėte būti atsargūs tvarkydami „Outlook“ laiškus. Pavyzdžiui, jei gaunate el. laiškus iš nežinomų šaltinių, geriau jo neatidarykite, jau nekalbant apie įterptųjų nuorodų spustelėjimą ar pridėtų failų atsisiuntimą. Tokio tipo el. laiškuose gali būti kenkėjiškų makrokomandų, virusų ar kenkėjiškų programų, kurios gali akimirksniu sugadinti „Outlook“ duomenis. Tai reiškia, kad jūs kentėsite Outlook failo pažeidimas. Tuo metu jūsų unikalus kurortas yra naudoti galingą ir geros reputacijos remonto įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sugadintą mdf db ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com