Ako nastaviť predvolené písmo pre telo kontaktu, stretnutie a úlohu cez VBA

Outlook nemá žiadnu natívnu funkciu na nastavenie predvoleného písma pre telo kontaktu, schôdzky a úlohy. Ak teda chcete špecifikovať písmo, môžete použiť metódu uvedenú v tomto článku.

Rovnako ako e-mail, aj schôdzka v Outlooku, úloha a kontakt majú aj pole tela, do ktorého môžeme vyplniť detaily položky. Outlook však používateľom umožňuje nastaviť predvolené písmo používané v tele e-mailu. Ak chcete zadať písmo v tele kontaktu, schôdzky alebo úlohy, musíte hľadať iné prostriedky, ako sú doplnky tretích strán alebo Outlook VBA. Tu vás podrobne naučíme, ako ho získať pomocou VBA. Čítajte ďalej a dozviete sa podrobné kroky a zodpovedajúce kódy VBA.

Nastavte predvolené písmo pre telo stretnutia, úlohy a kontaktu

1. Hneď na úvod starváš program Outlook.
2. Potom stlačením klávesov „Alt + F11“ spustite editor Outlook VBA.
3. Vo vyskakovacom okne musíte otvoriť projekt „ThisOutlookSession“.
4. Následne skopírujte nasledujúce kódy VBA do tohto okna projektu.

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. Potom musíte tento kód podpísať.

• Najprv vytvorte digitálny certifikát pomocou Digital Certificates for VBA Projects.
• Potom priraďte tento certifikát novému makru.

6. Neskôr môžete zmeniť nastavenia makier programu Outlook, aby ste povolili digitálne podpísané makrá.
7. Nakoniec si star• vo svojom programe Outlook aktivujte nový projekt VBA. Odteraz, keď vytvoríte nový kontakt, stretnutie alebo úlohu, telo bude používať svoje predvolené písmo, ako napríklad nasledujúca snímka obrazovky:

Chráňte svoje údaje PST pred korupciou

Vzhľadom na skutočnosť, že súbor Outlook PST je náchylný na chyby a poškodenie, musíte venovať veľkú pozornosť ochrane PST. Napríklad by ste si mali dávať pozor na e-maily z neznámych zdrojov, pretože to môžu byť škodlivé e-maily s vírusmi. Keď sa váš súbor PST nakazí, musíte sa vrátiť k renomovanému a osvedčenému nástroju na opravu, ako napr. DataNumen Outlook Repair, ktorý môže opraviť PST spis ako vánok.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane fixné SQL Server a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S