Kuidas määrata VBA kaudu kontaktikogu, kohtumise ja ülesande vaikefont

Outlookil pole loomulikku funktsiooni kontakti, kohtumise ja ülesande üksuse vaikefondi määramiseks. Seega, kui soovite fondi täpsustada, võite kasutada selles artiklis tutvustatud meetodit.

Sarnaselt meilile on ka Outlooki kohtumisel, ülesandel ja kontaktil kehaväli, kuhu saame sisestada kauba üksikasjad. Outlook lubab kasutajatel aga määrata ainult meili sisus kasutatava vaikefondi. Kui soovite määrata fondi kontakti, kohtumise või ülesande kehas, peate otsima muid vahendeid, nagu kolmanda osapoole lisandmoodulid või Outlook VBA. Siin õpetame teile üksikasjalikult, kuidas VBA-d selle hankimiseks kasutada. Lugege edasi, et õppida üksikasjalikke samme ja vastavaid VBA-koode.

Määrake kohtumise, ülesande ja kontakti sisu vaikefont

1. Kohe alguses, start oma Outlooki programmi.
2. Seejärel vajutage Outlooki VBA redaktori käivitamiseks klahvikombinatsiooni Alt + F11.
3. Hüpikaknas peate avama projekti "ThisOutlookSession".
4. Seejärel kopeerige sellesse projekti aknasse järgmised VBA koodid.

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. Pärast seda peate selle koodi allkirjastama.

• Esiteks looge VBA projektide jaoks digitaalsertifikaat digitaalsete sertifikaatide abil.
• Seejärel määrake see sertifikaat uuele makrole.

6. Hiljem saate muuta oma Outlooki makro sätteid, et lubada digitaalselt allkirjastatud makrosid.
7. Lõpuks sa start oma Outlooki uue VBA projekti aktiveerimiseks. Nüüdsest kasutab keha uue kontakti, kohtumise või ülesande loomisel oma vaikefonti, näiteks järgmist ekraanipilti:

Kaitske oma PST-andmeid korruptsiooni eest

Kuna Outlooki PST-failis esineb vigu ja vigu, peate PST-kaitsetele palju tähelepanu pöörama. Näiteks peaksite olema ettevaatlik tundmatutest allikatest pärit meilide suhtes, kuna need võivad olla viiruseid sisaldavad pahatahtlikud meilid. Kui teie PST-fail on nakatunud, peate uuesti kasutama mainekat ja hästi tõestatud parandustööriista, näiteks DataNumen Outlook Repair, mis võib remont PST faili nagu imelihtne.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas määrata SQL Server ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom