Outlookで件名なしの警告をオフまたは無効にする方法は？

Author: Siluvia Last Modified: 2025-05-23

Outlook 2010や2013を使用している場合、件名なしでメールを送信すると、毎回「件名なし」のプロンプトボックスが表示されて注意喚起されます。もし本当に件名を入力したくない場合、この件名なしの警告は大きな手間になるでしょう。Outlookユーザーがこの件名なしの警告を回避できるように、以下のチュートリアルでスキルを提供します。

Outlookで件名なしの警告をオフまたは無効にする

Outlookで件名なしの警告をオフまたは無効にする

Outlook 2007では、件名なしでメールを送信しても警告は表示されません。この機能はOutlook 2010および2013で有効になっています。ただし、この件名なしの警告を直接オフまたは無効にする機能はありません。このチュートリアルでは、その目的を達成するためのVBAコードを紹介します。

1. 「Alt」＋「F11」キーを押して、「Microsoft Visual Basic for Applications」ダイアログボックスを開いてください。

2. 「Project1」＞「Microsoft Outlook Objects」をダブルクリックして展開し、次に「ThisOutlookSession」をダブルクリックして「VbaProject.OTM」ウィンドウを開きます。

the screenshot of turning off or disable no subject warning in Outlook 1

3. 下記のVBAコードをウィンドウにコピー＆ペーストしてください。

VBA: 件名なしの警告をオフまたは無効にする

Option Explicit
Private WithEvents oInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set oInspectors = Outlook.Inspectors
End Sub

Private Sub oInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim oItem As Object
    On Error GoTo ExitProc
    Set oItem = Inspector.CurrentItem
    If oItem.Sent = False Then
        If oItem.Subject = "" Then oItem.Subject = " "
    End If
ExitProc:
    Set oItem = Nothing
    Set Inspector = Nothing
End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    On Error Resume Next
    Item.Subject = Trim(Item.Subject)
End Sub

Private Sub Application_Quit()
    Set oInspectors = Nothing
End Sub

4. 「保存」ボタンをクリックしてVBAコードを保存します。

5. Outlookアプリケーションを再起動します。

これでVBAコードが有効になり、件名なしでメッセージを送信しても件名なしの警告ボックスが表示されなくなります。

注意: 「すべてのマクロを有効にする」オプションがチェックされていることを確認してください。（「ファイル」＞「オプション」＞「トラストセンター」＞「トラストセンターの設定」をクリックし、「トラストセンター」ダイアログで「マクロの設定」＞「すべてのマクロを有効にする」を選択してください）。スクリーンショットをご覧ください：