Kui proovite e-kirjadele vastata või neid edasi saata, vajutades nuppu "Vasta", "Vasta kõigile" või "Edasta", tuleb meili teema ette lisada eesliide "RE" või "FW". See artikkel räägib teile, kuidas lasta Outlookil need VBA abil automaatselt eemaldada.
Meie eelmises artiklis - "2 meetodit Outlooki meilide edastamiseks ilma "FW" prefiksita teemas”, saate meilide ilma FWta edastamiseks kasutada kahte lahendust. Nad saadavad e-kirjad uuesti ja loovad vastavalt kiirsammu „Edasta”. On ilmne, et mõlemad ei saa lubada teil "FW" automaatselt eemaldada, kui kasutate rühmas "Vasta" tavalist nuppu "Edasta".
Seega, kui soovite vaikimisi eemaldada teemast eesliite "RE" või "FW", klõpsates nuppu "Vasta", "Vasta kõigile" või "Edasta", peate need iga kord käsitsi kustutama. See saab olema üsna tülikas. Õnneks saate kasutada Outlook VBA-d konkreetsete sõnade automaatseks eemaldamiseks meili teemast. Üksikasjalike koodide ja sammude saavutamiseks lugege edasi.
E-kirjade edastamisel või neile vastamisel eemaldage automaatselt eesliide "FW" või "RE".
- Alustamiseks avage Outlook ja minge vahekaardile „Arendaja”.
- Seejärel leiate nupu "Visual Basic" ja klõpsake sellel.
- Järgmisena peaksite uues aknas topeltklõpsama projekti ThisOutlookSession.
- Seejärel peate sellesse kopeerima ja kleepima järgmised VBA-koodid.
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
- Pärast seda peaksite allkirjastama selle makro digitaalse sertifikaadi.
- Hiljem saate Visual Basicu aknast väljuda ja Outlooki konfigureerida lubama ainult digitaalselt allkirjastatud makrosid.
- Lõpuks saate proovida.
- Esiteks valige e-kiri ja vajutage nuppu "Vasta", "Vasta kõigile" või "Edasta".
- Seejärel avaneb vastamis- või edasisaatmissõnum. Saate kirjutada kirja nagu tavaliselt.
- Kui klõpsate nupul "Saada", saate sõnumikasti, nagu järgmine ekraanipilt:
- Kui valite "Jah", eemaldatakse eesliide "RE" või "FW" automaatselt. Kui valite "Ei", siis eesliidet ei eemaldata.
Mida mitte teha Outlooki meilidega tegelemisel?
Outlook on haavatav, seega peaksite olema Outlooki meilide käsitlemisel ettevaatlik. Näiteks kui saate meile tundmatutest allikatest, ärge seda avage, rääkimata manustatud linkide klõpsamisest või manustatud failide allalaadimisest. Sellised meilid võivad sisaldada pahatahtlikke makrosid, viiruseid või pahavara, mis võivad teie Outlooki andmed hetkega rikkuda. See tähendab, et sa kannatad Outlooki faili kahjustus. Sel hetkel on teie ainulaadne abinõu kasutada võimsat ja mainekat remonditööriista, näiteks DataNumen Outlook Repair.
Autori sissejuhatus:
Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas paranda rikutud mdf db ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom