Kako nastavite privzeto pisavo za telo stika, sestanek in nalogo prek VBA

Outlook nima izvorne funkcije za nastavitev privzete pisave za telo stika, sestanka in elementa opravila. Če želite določiti pisavo, se lahko zatečete k metodi, predstavljeni v tem članku.

Tako kot e-pošta imajo tudi sestanki, naloge in stiki v Outlooku polje telesa, v katerega lahko vnesemo podrobnosti o elementu. Vendar Outlook samo uporabnikom dovoljuje, da nastavijo privzeto pisavo, ki se uporablja v telesu e-pošte. Če želite določiti pisavo v telesu stika, sestanka ali opravila, morate poiskati druga sredstva, na primer dodatke tretjih oseb ali Outlook VBA. Tu vas bomo podrobno naučili, kako uporabljati VBA, da ga dobite. Preberite, če želite izvedeti podrobne korake in ustrezne kode VBA.

Nastavite privzeto pisavo za telo imenovanja, naloge in stik

1. Na samem začetku je start vašega programa Outlook.
2. Nato pritisnite tipki “Alt + F11”, da zaženete urejevalnik Outlook VBA.
3. V pojavnem oknu morate odpreti projekt »ThisOutlookSession«.
4. Nato v to okno projekta kopirajte naslednje kode VBA.

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 tem morate to kodo podpisati.

• Najprej ustvarite digitalno potrdilo z digitalnimi potrdili za projekte VBA.
• Nato dodelite to potrdilo novemu makru.

6. Kasneje lahko spremenite nastavitve makra v Outlooku, da omogočite digitalno podpisane makre.
7. Končno si start vaš Outlook, da aktivirate nov projekt VBA. Od zdaj naprej bo telo, ko ustvarite nov stik, sestanek ali opravilo, uporabljalo privzeto pisavo, na primer naslednjo sliko zaslona:

Zaščitite svoje podatke PST pred korupcijo

Ker je datoteka PST Outlook nagnjena k napakam in korupciji, morate biti zelo pozorni na zaščito PST. Pazite na primer e-poštnih sporočil iz neznanih virov, saj gre morda za zlonamerna e-poštna sporočila z virusi. Ko se datoteka PST okuži, se morate vrniti k uglednemu in dobro preizkušenemu orodju za popravke, kot je DataNumen Outlook Repair, ki lahko popravilo PST pila kot vetrič.

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 fiksna SQL Server in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com