Outlook で件名欄に自動的に既定のテキストを追加するには、どうすればよいですか？

Outlook で新規メールを作成する際、件名に自動的に既定のテキストを追加する方法はあるでしょうか？この記事では、その課題を解決するための便利な方法をいくつかご紹介します。

VBA コードで件名行に自動的に既定のテキストを追加する

Kutools for Outlook で件名行に自動的に既定のテキストを追加する

---

VBA コードで件名行に自動的に既定のテキストを追加する

件名行に自動的に既定のテキストを追加するには、以下の VBA コードをご利用ください。

1。「Alt」＋「F11」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きましょう。

2。「Microsoft Visual Basic for Applications」ウィンドウで、「Project1 (VbaProject.OTM)」の下にある「ThisOutlookSession」をダブルクリックしてモジュールを開き、次のコードを空のモジュールにコピー＆ペーストしてください。

VBA コード：件名行に自動的に既定のテキストを追加する

Public xFlag As Boolean
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xText As String
On Error Resume Next
If xFlag = False Then
    xText = "Skyyang-"
    If InStr(Item.Subject, xText) = False Then
L1:     xText = InputBox("Input Subject", "Kutools for Outlook", xText)
        If xText = "" Then
            xFlag = False
            Cancel = True
            Exit Sub
        End If
        Item.Subject = xText & " " & Item.Subject
        xFlag = True
        Cancel = True
    End If
Else
    xFlag = False
    xText = "Skyyang-"
    If InStr(Item.Subject, xText) = False Then
      GoTo L1
    End If
End If
End Sub

注：このコードでは、件名に自動的に「Skyyang-」というテキストが追加されます。必要に応じて、ご自身のテキストに変更してください。

3。「Alt」＋「Q」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを閉じましょう。

結果を確認するには、新しいメールを作成してください。

4。新規メールを作成し、「To」フィールドに宛先、「件名」行に件名を入力します。次に「送信」ボタンをクリックすると、件名行に既定のテキストを追加するかどうかを尋ねるプロンプトボックスが表示されます。

5。「OK」ボタンをクリックすると、既定のテキストが件名の先頭に自動的に追加されます。

---

Kutools for Outlook で件名行に自動的に既定のテキストを追加する

件名行に自動的に既定のテキストを追加する簡単な方法をご紹介します。「Kutools for Outlook」ユーティリティを使えば、この作業をあっという間に完了できます。

1。Outlook を起動し、「Kutools」＞「オプション」をクリックしてください。

2。「オプション」ダイアログボックスで「新規作成」タブをクリックし、「新規メール作成時に件名に日付を追加する」オプションをオンにして、件名行に自動的に表示させたい既定のテキストを入力します。

3。「OK」ボタンをクリックすると、新規メール作成時に指定した既定のテキストが、以下のように件名行に自動的に入力されます。