Kaip nustatyti numatytąjį šriftą, skirtą ryšiams, paskyrimui ir užduotims naudojant VBA

„Outlook“ neturi savosios funkcijos, leidžiančios nustatyti numatytąjį kontakto, susitikimo ir užduoties elemento šriftą. Taigi, jei norite nurodyti šriftą, galite pasinaudoti šiame straipsnyje aprašytu metodu.

Kaip ir el. laiškas, „Outlook“ paskyrimas, užduotis ir kontaktas taip pat turi teksto lauką, kuriame galime užpildyti detales. Tačiau „Outlook“ leidžia vartotojams nustatyti tik numatytąjį šriftą, naudojamą el. laiško tekste. Jei norite nurodyti šriftą kontakto, susitikimo ar užduoties turinyje, turite ieškoti kitų priemonių, pvz., trečiųjų šalių priedų arba Outlook VBA. Čia mes išsamiai išmokysime jus naudoti VBA, kad jį gautumėte. Skaitykite toliau, kad sužinotumėte išsamius veiksmus ir atitinkamus VBA kodus.

Nustatykite numatytąjį paskyrimo, užduočių ir kontaktų teksto šriftą

1. Pačioje pradžioje start savo „Outlook“ programą.
2. Tada paspauskite „Alt + F11“ klavišų mygtukus, kad paleistumėte „Outlook VBA“ redaktorių.
3. Iššokančiajame lange turite atidaryti projektą „ThisOutlookSession“.
4. Tada nukopijuokite šiuos VBA kodus į šį projekto langą.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objInspector As Outlook.Inspector

Public Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Public Sub objInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
    Set objInspector = Inspector
End Sub

Public Sub objInspector_Activate()
    Dim objCurrentItem As Object
    Dim objCurrentInspector As Outlook.Inspector
    Dim objWordDocument As Word.Document
    Dim objWordSelection As Word.Selection
 
    Set objCurrentItem = objInspector.CurrentItem
    Set objCurrentInspector = objCurrentItem.GetInspector
    Set objWordDocument = objCurrentInspector.WordEditor
    Set objWordSelection = objWordDocument.Application.Selection
 
    'You change the font as per your preference
    Select Case objCurrentItem.Class
           Case olContact
                With objWordSelection.Font
                     .Name = "Segoe Script"
                     .ColorIndex = wdRed
                     .Size = 8
                     .Bold = True
                End With
           Case olAppointment
                With objWordSelection.Font
                     .Name = "Comic Sans MS"
                     .ColorIndex = wdBlue
                     .Size = 9
                     .Bold = False
                End With
           Case olTask
                With objWordSelection.Font
                     .Name = "MV Boli"
                     .ColorIndex = wdGreen
                     .Size = 10
                     .Bold = True
                End With
   End Select
End Sub

5. Po to turite pasirašyti šį kodą.

• Pirmiausia sukurkite skaitmeninį sertifikatą naudodami VBA projektų skaitmeninius sertifikatus.
• Tada priskirkite šį sertifikatą naujai makrokomandai.

6. Vėliau galėsite pakeisti „Outlook“ makrokomandos nustatymus, kad leistų naudoti skaitmeniniu būdu pasirašytas makrokomandas.
7. Pagaliau tu start savo Outlook, kad suaktyvintumėte naują VBA projektą. Nuo šiol, kai kuriate naują kontaktą, susitikimą ar užduotį, kūnas naudos numatytąjį šriftą, pvz., šią ekrano kopiją:

Apsaugokite savo PST duomenis nuo korupcijos

Dėl to, kad Outlook PST failas yra linkęs į klaidas ir sugadinimą, turite daug dėmesio skirti PST apsaugai. Pavyzdžiui, turėtumėte saugotis el. laiškų iš nežinomų šaltinių, nes tai gali būti kenkėjiški el. laiškai su virusais. Kai jūsų PST failas bus užkrėstas, turėsite vėl naudoti patikimą ir gerai patikrintą taisymo įrankį, pvz., DataNumen Outlook Repair, kuri gali remontas PST failas kaip vėjas.

Autoriaus įvadas:

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