Kuinka etuliite “RE” tai “FW” poistetaan automaattisesti aiheesta, kun vastaat tai välität sähköpostia

Kun yrität vastata sähköposteihin tai lähettää niitä edelleen painamalla "Vastaa", "Vastaa kaikille" tai "Välitä" -painikkeita, sähköpostin aiheen eteen on lisättävä etuliite "RE" tai "FW". Tässä artikkelissa kerrotaan, kuinka voit antaa Outlookin poistaa ne automaattisesti VBA: lla.

Peräkkäisessä artikkelissamme -2 tapaa välittää Outlook-sähköpostit ilman ”FW” -etuliitettä Aiheeseen”, Saat kaksi kiertotapaa sähköpostien edelleenlähettämiseen ilman“ FW ”. He lähettävät sähköpostiviestejä uudelleen ja luovat pikakäynnin eteenpäin. On selvää, että molemmat eivät voi sallia FW: n automaattista poistamista, jos käytät normaalia Lähetä eteenpäin -painiketta Vastaa-ryhmässä.

Siksi oletusarvoisesti, jos haluat poistaa aiheen ”RE” tai “FW” etuliitteen napsauttamalla “Vastaa”, “Vastaa kaikille” tai “Välitä” -painiketta, sinun on poistettava ne manuaalisesti joka kerta. Se tulee olemaan melko hankala. Onneksi voit käyttää Outlook VBA: ta tiettyjen sanojen automaattiseen poistamiseen postiaiheesta. Lue yksityiskohtaisten koodien ja vaiheiden saavuttamiseksi.

Poista etuliite “FW” tai “RE” automaattisesti, kun välität tai vastaat sähköposteja

1. Aloita käynnistämällä Outlook ja siirtymällä "Kehittäjä"-välilehdelle.
2. Sitten löydät ja napsautat Visual Basic -painiketta.
3. Seuraavaksi uudessa ikkunassa, sinun pitäisi kaksoisnapsauttaa “ThisOutlookSession” -projektia.
4. Sen jälkeen sinun on kopioitava ja liitettävä seuraavat VBA-koodit siihen.

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. Sen jälkeen sinun tulee allekirjoittaa digitaalinen varmenne tähän makroon.
6. Myöhemmin voit poistua Visual Basic -ikkunasta ja määrittää Outlookin ottamaan käyttöön vain digitaalisesti allekirjoitetut makrot.
7. Lopuksi voit kokeilla.

• Ensinnäkin, valitse sähköposti ja paina "Vastaa", "Vastaa kaikille" tai "Välitä" -painiketta
• Sitten vastaus- tai edelleenlähetysviesti avautuu. Voit kirjoittaa postin tavalliseen tapaan.
• Kun napsautat Lähetä-painiketta, saat viestiruudun, kuten seuraavan kuvakaappauksen:
• Jos valitset “Kyllä”, etuliite “RE” tai “FW” poistetaan automaattisesti. Jos valitset Ei, etuliitettä ei poisteta.

Mitä ei pidä tehdä Outlook-sähköpostiviestien käsittelyssä

Outlook on haavoittuva, joten sinun on oltava varovainen käsitellessäsi Outlook-viestejä. Esimerkiksi, jos saat sähköpostiviestejä tuntemattomista lähteistä, sinun on parasta avata se, puhumattakaan upotetuista linkeistä tai ladata liitetyt tiedostot. Tällaiset sähköpostit saattavat sisältää haitallisia makroja, viruksia tai haittaohjelmia, jotka voivat pilata Outlook-tietosi nopeasti. Se tarkoittaa, että kärsit Outlook-tiedostovaurio. Siinä vaiheessa ainutlaatuinen keinosi on käyttää voimakasta ja hyvämaineista korjaustyökalua, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjata vioittunut mdf db ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com