Kuidas automaatselt kasutada erinevaid fondivärve meilidele vastamiseks ja nende edastamiseks Outlook VBA abil

Outlooki andmete taastamine, Outlooki lahendused Võib 17 2018

Vaikimisi ei saa te lubada Outlooki automaatsel e-kirjadele vastamiseks ja edastamiseks erinevaid fondivärve. Seega, kui teil on selline nõue, võite lugeda seda lkost õppida nutikat lähenemist.

Outlook lubab teil määrata ainult e-kirjadele vastamiseks ja edastamiseks kasutatava fondi. Võite minna "Fail" > "Valikud". Seejärel avage "Outlooki suvandites" vahekaart "Mail" ja klõpsake nuppu "Kirjatarbed ja fondid ...". Järgmises aknas näete jaotises "Sõnumitele vastamine või edastamine" nuppu "Font". Klõpsake seda ja seejärel saate e-kirjadele vastamiseks ja edastamiseks määrata kindla fondivärvi.

Muutke kirjadele vastamisel või sõnumite edastamisel fonti

Paljud kasutajad loodavad aga e-kirjadele vastamiseks või nende edastamiseks kasutada erinevaid fondivärve. Kuigi Outlook ei paku selle jaoks otseseid funktsioone, saab seda siiski VBA-koodi abil realiseerida. Nüüd lugege edasi, et saada selline VBA-koodi tükk.

Kasutage e-kirjadele vastamiseks ja nende edastamiseks automaatselt erinevaid fondivärve

  1. Sest nagutart, käivitage Outlooki rakendus.
  2. Seejärel käivitage VBA redaktor viitega "Kuidas Outlookis VBA-koodi käivitada".
  3. Järgmiseks vastavalt "Kuidas lisada objektiliigrary Viide VBA-s“, lisage viide „MS Word Object Library ”.
  4. Seejärel kopeerige järgmine kood projekti "ThisOutlookSession".
Avalikud sündmustega objInspektorid kui Outlook.Inspektorid Avalikud sündmustega objExplorer kui Outlook.Explorer avalik sündmustega objMail kui Outlook.MailItem Privaatne alamrakendus_Startup() Set objInspectors = Outlook.Application.Inspectors Set objExplorer = Outlook.Application.ActiveExplorer End Sub Private Sub objInspectors_New Inspector(ByVal Inspector As Inspector) If TypeOf Inspector.CurrentItem on MailItem, siis määrake ObjMail = SubPrivate EndItem. objExplorer_SelectionChange() Vea korral Jätkake järgmisena, kui ObjExplorer.Selection.Item(1) on MailItem, siis määrake objMail = objExplorer.Selection.Item(1) End If End Sub Private Sub objMail_Reply(ByVal Object,Response) Tühista As As Outlook.MailItem Dim objReplyDoc as Word.Document Dim objDocSelection as Word.Selection Cancel = Tõene Määra objReply = objMail.Reply objReply.Display Set objReplyDoc = objReply.GetInspector.ObjReply.GetInspector.ObjReply,Soc. jDocSelection = objReplyDoc .Application.Selection 'Kasuta "Vastuses" fonti "Pink" objDocSelection.Font.ColorIndex = wdPink End Sub Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean) Dim objReplyAll As DiA Outlook.DjReplyAll Word.DjReplyAll Valik As Word.Selection Tühista = Tõene Määra objReplyAll = objMail.ReplyAll objReplyAll.Display Set objReplyAllDoc = objReplyAll.GetInspector.WordEditor objReplyAllDoc.Range(0, SeApply Obj.All.SelectSelect) käsk "Kasuta "rohelist" fonti " Vasta kõigile" objDocSelection.Font.ColorIndex = wdGreen End Sub Private Sub objMail_Forward(ByVal Forward As Object, Cancel As Boolean) Dim objForward As Outlook.MailItem Dim objForwardDoc as Word.Document Dim = CancelMail.Selection A objMailForward .Edasi objForward.Display Set objForwardDoc = objForward.GetInspector.WordEditor objForwardDoc.Range(0, 0).Valige Määra objDocSelection = objForwardDoc.Application.Selection 'Kasuta "Blue" fonti in ForwardBelectionB.Coll.Endex = Forward ObjDont

VBA kood – erinevate fondivärvide automaatne kasutamine meilidele vastamiseks ja nende edastamiseks

  1. Pärast seda restart Outlook selle makro aktiveerimiseks.
  2. Lõpuks võite proovida.
  • Valige või avage meil.
  • Seejärel klõpsake nuppu "Vasta". Meilile vastates võite sisestada mõned sõnad kehasse. Kirjavärv peab olema roosa.Font "Pink" jaotises "Vastus"
  • Või klõpsake nuppu "Vasta kõigile". Sisestage uues kirjas "vastan kõigile" sõnad kehasse. Kirjavärv on kindlasti roheline."Roheline" font jaotises "Vasta kõigile"
  • Samamoodi klõpsake nuppu "Edasta". Edastuskirjas kuvatakse uued sõnad sinisena."Sinine" font valikus "Edasi"

Kasutage usaldusväärset tarkvara

Juhul kui Outlooki korruptsioon, Most kasutajad kipuvad kasutama Outlooki taastetarkvara. Turul on saadaval suur hulk selliseid programme. Ja mõned neist on isegi tasuta. Sellegipoolest peaksite teadmata allikatest pärit isikute suhtes ettevaatlik olema, kuna need võivad praeguse juhtumi hullemaks ja hullemaks muuta. Peaksite kasutama usaldusväärset ja kogenud tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas rikutud sql ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.