Festlegen der Standardschriftart für Kontakt, Termin und Aufgabe über VBA

Jetzt teilen:

Outlook verfügt über keine native Funktion zum Festlegen der Standardschriftart für den Kontaktkörper, den Termin und das Aufgabenelement. Wenn Sie also die Schriftart angeben möchten, können Sie auf die in diesem Artikel vorgestellte Methode zurückgreifen.

Wie die E-Mail haben auch Outlook-Termin, Aufgabe und Kontakt das Textfeld, in das wir die Artikeldetails eingeben können. In Outlook können Benutzer jedoch nur die Standardschriftart festlegen, die im E-Mail-Text verwendet wird. Wenn Sie die Schriftart im Kontaktkörper, im Termin oder in der Aufgabe angeben möchten, müssen Sie nach anderen Mitteln suchen, z. B. nach Add-Ins von Drittanbietern oder nach Outlook VBA. Hier werden wir Ihnen ausführlich beibringen, wie Sie VBA verwenden, um es zu erhalten. Lesen Sie weiter, um die detaillierten Schritte und die entsprechenden VBA-Codes zu erfahren.

Legen Sie die Standardschriftart für den Kontaktteil und die Aufgabe fest

Legen Sie die Standardschriftart für den Termin, die Aufgabe und den Kontakt fest

  1. Gleich zu Beginn start Ihr Outlook-Programm.
  2. Drücken Sie dann die Tasten „Alt + F11“, um den Outlook VBA-Editor zu starten.
  3. Im Popup-Fenster müssen Sie das Projekt "ThisOutlookSession" öffnen.
  4. Kopieren Sie anschließend die folgenden VBA-Codes in dieses Projektfenster.
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

VBA-Codes - Legen Sie die Standardschriftart für Kontakt, Termin und Aufgabe fest

  1. Danach müssen Sie diesen Code unterschreiben.
  • Erstellen Sie zunächst ein digitales Zertifikat von Digital Certificates für VBA-Projekte.
  • Weisen Sie dieses Zertifikat dann dem neuen Makro zu.
  1. Später können Sie Ihre Outlook-Makroeinstellungen ändern, um die digital signierten Makros zuzulassen.
  2. Endlich bist du start Ihr Outlook, um das neue VBA-Projekt zu aktivieren. Wenn Sie von nun an einen neuen Kontakt, Termin oder eine neue Aufgabe erstellen, verwendet body seine Standardschriftart wie den folgenden Screenshot:Standardschriftart für Kontakt, Termin und Aufgabe

Schützen Sie Ihre PST-Daten vor Korruption

Aufgrund der Tatsache, dass die Outlook PST-Datei fehleranfällig und beschädigt ist, müssen Sie dem PST-Schutz große Aufmerksamkeit widmen. Sie sollten sich beispielsweise vor E-Mails aus unbekannten Quellen hüten, da es sich möglicherweise um böswillige E-Mails mit Viren handelt. Sobald Ihre PST-Datei infiziert ist, müssen Sie zu einem seriösen und bewährten Fix-Tool zurückkehren, z DataNumen Outlook Repair, Denen PST reparieren Datei wie eine Brise.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich fixieren SQL Server und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX

Jetzt teilen:

Kommentare sind geschlossen.