Jak ustawić domyślną czcionkę dla treści kontaktu, terminu i zadania za pośrednictwem VBA

Outlook nie ma natywnej funkcji ustawiania domyślnej czcionki dla treści kontaktu, terminu i zadania. Dlatego jeśli chcesz określić czcionkę, możesz skorzystać z metody przedstawionej w tym artykule.

Podobnie jak e-mail, spotkanie, zadanie i kontakt w programie Outlook mają również pole treści, w którym możemy wpisać szczegóły pozycji. Jednak program Outlook zezwala użytkownikom tylko na ustawienie domyślnej czcionki używanej w treści wiadomości e-mail. Jeśli chcesz określić czcionkę w treści kontaktu, spotkania lub zadania, musisz poszukać innych środków, takich jak dodatki innych firm lub Outlook VBA. Tutaj szczegółowo nauczymy Cię, jak używać VBA, aby to uzyskać. Czytaj dalej, aby poznać szczegółowe kroki i odpowiadające im kody VBA.

Ustaw domyślną czcionkę treści terminu, zadania i kontaktu

1. Na wstępie starprogram Outlook.
2. Następnie naciśnij klawisze „Alt + F11”, aby uruchomić edytor VBA programu Outlook.
3. W wyskakującym okienku musisz otworzyć projekt „ThisOutlookSession”.
4. Następnie skopiuj następujące kody VBA do tego 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. Następnie musisz podpisać ten kod.

• Najpierw utwórz certyfikat cyfrowy za pomocą certyfikatów cyfrowych dla projektów VBA.
• Następnie przypisz ten certyfikat do nowego makra.

6. Później możesz zmienić ustawienia makr programu Outlook, aby zezwolić na makra podpisane cyfrowo.
7. Wreszcie start programu Outlook, aby aktywować nowy projekt VBA. Odtąd, gdy utworzysz nowy kontakt, spotkanie lub zadanie, body będzie używać domyślnej czcionki, jak na poniższym zrzucie ekranu:

Chroń swoje dane PST przed korupcją

Ze względu na to, że plik Outlook PST jest podatny na błędy i korupcję, należy zwrócić szczególną uwagę na zabezpieczenia PST. Na przykład należy uważać na wiadomości e-mail z nieznanych źródeł, ponieważ mogą to być złośliwe wiadomości e-mail z wirusami. Gdy plik PST zostanie zainfekowany, musisz skorzystać z renomowanego i sprawdzonego narzędzia naprawczego, takiego jak DataNumen Outlook Repair, Który może naprawa PST plik jak bryza.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym stały SQL Server i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com