VBAを介して連絡先、予定、タスクの本文のデフォルトフォントを設定する方法

Outlookソリューション 2025 年 9 月 29 日

Outlookには、連絡先、予定、およびタスクアイテムの本文のデフォルトフォントを設定するためのネイティブ機能はありません。したがって、フォントを指定する場合は、この記事で紹介した方法を使用できます。

電子メールと同様に、Outlookの予定、タスク、および連絡先にも本文フィールドがあり、アイテムの詳細を入力できます。ただし、Outlookでは、ユーザーは電子メールの本文で使用されるデフォルトのフォントのみを設定できます。連絡先、予定、またはタスクの本文でフォントを指定する場合は、サードパーティのアドインやOutlookVBAなどの他の手段を探す必要があります。ここでは、VBAを使用して取得する方法を詳しく説明します。詳細な手順と対応するVBAコードについては、以下をお読みください。

予定、タスク、連絡先の本文のデフォルトフォントを設定する

非常に最初に、starOutlookプログラム。
次に、「Alt + F11」キーボタンを押して、OutlookVBAエディターを起動します。
ポップアップウィンドウで、「ThisOutlookSession」プロジェクトを開く必要があります。
続いて、次のVBAコードをこのプロジェクトウィンドウにコピーします。

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プロジェクトのデジタル証明書でデジタル証明書を作成します。
次に、この証明書を新しいマクロに割り当てます。

後で、Outlookのマクロ設定を変更して、デジタル署名されたマクロを許可することができます。
最後にあなたはtarOutlookを使用して、新しいVBAプロジェクトをアクティブ化します。今後、新しい連絡先、予定、またはタスクを作成すると、bodyは次のスクリーンショットのようにデフォルトのフォントを使用します。

破損からPSTデータを保護します

Outlook PSTファイルはエラーや破損が発生しやすいという事実のため、PST保護に多くの注意を払う必要があります。たとえば、ソースが不明な電子メールは、ウイルスを含む悪意のある電子メールである可能性があるため、注意する必要があります。 PSTファイルが感染したら、次のような信頼できる実績のある修正ツールを繰り返し使用する必要があります。 DataNumen Outlook Repair、そのことができます PSTを修復するそよ風のようにファイルします。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。修正します SQL Server と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com