Kako postaviti zadani font za tijelo kontakta, sastanak i zadatak putem VBA

Outlook nema izvornu značajku za postavljanje zadanog fonta za tijelo kontakta, obveze i stavke zadatka. Stoga, ako želite odrediti font, možete pribjeći metodi predstavljenoj u ovom članku.

Kao i e-pošta, Outlook termin, zadatak i kontakt također imaju polje tijela, u koje možemo ispuniti pojedinosti stavke. Međutim, Outlook dopušta samo postavljanje zadanog fonta koji se koristi u tijelu e-pošte. Ako želite navesti font u tijelu kontakta, sastanka ili zadatka, morate potražiti druga sredstva, kao što su dodaci treće strane ili Outlook VBA. Ovdje ćemo vas detaljno naučiti kako koristiti VBA da biste ga dobili. Čitajte dalje kako biste saznali detaljne korake i odgovarajuće VBA kodove.

Postavite zadani font za tijelo imenovanja, zadatak i kontakt

1. Na samom početku start vaš program Outlook.
2. Zatim pritisnite tipke "Alt + F11" za pokretanje Outlook VBA uređivača.
3. U skočnom prozoru morate otvoriti projekt "ThisOutlookSession".
4. Nakon toga kopirajte sljedeće VBA kodove u ovaj prozor projekta.

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. Nakon toga morate potpisati ovaj kod.

• Najprije izradite digitalni certifikat pomoću Digitalnih certifikata za VBA projekte.
• Zatim dodijelite ovaj certifikat novom makrou.

6. Kasnije biste mogli promijeniti postavke Outlook makronaredbi kako biste dopustili digitalno potpisane makronaredbe.
7. Napokon ti start svoj Outlook za aktivaciju novog VBA projekta. Od sada, kada stvorite novi kontakt, obvezu ili zadatak, tijelo će koristiti zadani font, kao na sljedećoj snimci zaslona:

Zaštitite svoje PST podatke od oštećenja

Zbog činjenice da je Outlook PST datoteka sklona pogreškama i korupciji, morate obratiti veliku pozornost na PST zaštitu. Na primjer, trebali biste se čuvati e-pošte iz nepoznatih izvora jer mogu biti zlonamjerne e-pošte s virusima. Nakon što se vaša PST datoteka zarazi, morate se vratiti uglednom i dobro dokazanom alatu za popravak, kao što je DataNumen Outlook Repair, koji može popraviti PST turpija poput povjetarca.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti SQL Server i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com