Jak nastavit výchozí písmo pro tělo kontaktu, schůzku a úkol prostřednictvím VBA

Aplikace Outlook nemá žádnou nativní funkci pro nastavení výchozího písma pro tělo kontaktu, událost a úkol. Pokud tedy chcete určit písmo, můžete se uchýlit k metodě uvedené v tomto článku.

Stejně jako e -mail má i událost, úkol a kontakt v aplikaci Outlook pole těla, do kterého můžeme vyplnit podrobnosti o položce. Aplikace Outlook však umožňuje uživatelům nastavit pouze výchozí písmo používané v těle e -mailu. Pokud chcete zadat písmo v těle kontaktu, události nebo úkolu, musíte hledat jiné prostředky, například doplňky třetích stran nebo Outlook VBA. Zde vás podrobně naučíme, jak pomocí VBA získat. Pokračujte v čtení, abyste se dozvěděli podrobné kroky a odpovídající kódy VBA.

Nastavte výchozí písmo pro tělo schůzky, úkol a kontakt

1. Hned na začátku, start vašeho programu Outlook.
2. Poté stisknutím kláves „Alt + F11“ spusťte editor aplikace Outlook VBA.
3. Ve vyskakovacím okně musíte otevřít projekt „ThisOutlookSession“.
4. Následně zkopírujte následující kódy VBA do tohoto 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. Poté musíte tento kód podepsat.

• Nejprve vytvořte digitální certifikát pomocí digitálních certifikátů pro projekty VBA.
• Poté přiřaďte tento certifikát novému makru.

6. Později můžete změnit nastavení maker aplikace Outlook a povolit digitálně podepsaná makra.
7. Nakonec jste start svůj Outlook k aktivaci nového projektu VBA. Od nynějška, když vytvoříte nový kontakt, událost nebo úkol, bude tělo používat své výchozí písmo, jako je následující snímek obrazovky:

Chraňte svá data PST před korupcí

Vzhledem k tomu, že soubor Outlook PST je náchylný k chybám a poškození, musíte ochraně PST věnovat velkou pozornost. Například byste si měli dávat pozor na e -maily z neznámých zdrojů, protože se může jednat o škodlivé e -maily s viry. Jakmile se váš soubor PST nakazí, musíte se vrátit k renomovanému a osvědčenému nástroji pro opravu, jako je např DataNumen Outlook Repair, které mohou opravit PST pilujte jako vánek.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit SQL Server a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com