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

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

Poput e-pošte, Outlook sastanak, zadatak i kontakt također imaju polje tijela, u koje možemo popuniti detalje stavke. Međutim, Outlook samo dozvoljava korisnicima da postave zadani font koji se koristi u tijelu e-pošte. Ako želite da navedete font u telu kontakta, obaveze ili zadatka, morate da tražite 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 da biste naučili detaljne korake i odgovarajuće VBA kodove.

Postavite zadani font za tijelo imenovanja, zadatka i kontakta

1. Na samom početku, start vaš Outlook program.
2. Zatim pritisnite tipke “Alt + F11” da pokrenete Outlook VBA editor.
3. U iskačućem 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.

• Prvo, kreirajte digitalni sertifikat pomoću Digital Certificates za VBA projekte.
• Zatim dodijelite ovaj certifikat novom makrou.

6. Kasnije biste mogli promijeniti postavke makronaredbe Outlooka kako biste dozvolili digitalno potpisane makroe.
7. Konačno ti start svoj Outlook da aktivirate novi VBA projekat. Od sada, kada kreirate novi kontakt, sastanak ili zadatak, tijelo će koristiti svoj zadani font, kao što je sljedeći snimak ekrana:

Zaštitite svoje PST podatke od korupcije

Zbog činjenice da je Outlook PST datoteka sklona greškama i korupciji, morate obratiti veliku pažnju na PST zaštitu. Na primjer, trebali biste se čuvati e-poruka iz nepoznatih izvora jer mogu biti zlonamjerne poruke e-pošte s virusima. Jednom kada se vaš PST fajl zarazi, morate se obratiti uglednom i dobro dokazanom alatu za popravke, kao što je DataNumen Outlook Repair, što može popraviti PST fajl kao povetarac.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti SQL Server i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com