Kako samodejno odstraniti predpono »RE« ali »FW« v zadevi, ko odgovarjate ali posredujete e-pošto

Ko poskušate odgovoriti ali posredovati e-poštna sporočila s pritiskom na gumb »Odgovori«, »Odgovori vsem« ali »Posreduj«, mora biti pred zadevo e-poštnega sporočila dodana predpona »RE« ali »FW«. Ta članek vam bo povedal, kako omogočiti, da jih Outlook samodejno odstrani z VBA.

V našem prejšnjem članku – “2 načina za posredovanje Outlookove e-pošte brez predpone »FW« v zadevi«, lahko dobite dve rešitvi za posredovanje e-pošte brez »FW«. Ponovno pošiljajo e-poštna sporočila in ustvarjajo hitri korak »Naprej«. Očitno je, da vam oba ne moreta dovoliti, da samodejno odstranite »FW«, če uporabite običajni gumb »Naprej« v skupini »Odgovori«.

Zato morate privzeto, če želite odstraniti predpono »RE« ali »FW« v zadevi, ko kliknete gumb »Odgovori«, »Odgovori vsem« ali »Posreduj«, ju vsakič znova izbrisati ročno. To bo precej težavno. Na srečo lahko uporabite Outlook VBA za samodejno odstranjevanje določenih besed v zadevi pošte. Berite naprej, da dosežete podrobne kode in korake.

Samodejno odstranite predpono »FW« ali »RE« pri posredovanju ali odgovarjanju na e-pošto

1. Za začetek zaženite Outlook in pojdite na zavihek »Razvijalec«.
2. Nato lahko najdete in kliknete gumb »Visual Basic«.
3. Nato v novem oknu dvakrat kliknite na projekt »ThisOutlookSession«.
4. Nato morate vanj kopirati in prilepiti naslednje kode 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. Nato podpišite digitalno potrdilo na ta makro.
6. Pozneje lahko zapustite okno »Visual Basic« in konfigurirate Outlook tako, da omogoči samo digitalno podpisane makre.
7. Končno lahko poskusite.

• Najprej izberite e-poštno sporočilo in pritisnite gumb »Odgovori«, »Odgovori vsem« ali »Posreduj«.
• Nato se odpre sporočilo za odgovor ali posredovanje. Sporočilo lahko sestavite kot običajno.
• Ko kliknete gumb »Pošlji«, boste prejeli okno s sporočilom, kot je ta posnetek zaslona:
• Če izberete »Da«, bo predpona »RE« ali »FW« samodejno odstranjena. Če izberete »Ne«, predpona ne bo odstranjena.

Kaj ne storiti pri delu z Outlookovo e-pošto

Outlook je ranljiv, zato bodite previdni pri ravnanju z Outlookovo pošto. Na primer, če prejemate e-poštna sporočila iz neznanih virov, jih raje ne odpirajte, da ne omenjamo klikanja vdelanih povezav ali prenosa priloženih datotek. Tovrstna e-poštna sporočila lahko vsebujejo zlonamerne makre, viruse ali zlonamerno programsko opremo, ki lahko v trenutku uniči vaše Outlookove podatke. To pomeni, da boste trpeli Poškodba datoteke Outlook. Takrat je vaša edinstvena rešitev uporaba zmogljivega in uglednega orodja za popravilo, kot je DataNumen Outlook Repair.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popravi poškodovan mdf db in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com