VBA Outlook添付ファイル忘れ警告

ファイル＞オプション＞トラストセンター＞トラストセンターの設定＞マクロの設定＞すべてのマクロを有効にする
※デジタル署名が上手くいかないとき

ファイル＞オプション＞リボンのユーザー設定＞(右側)開発にチェック
(上部に開発メニューがー表示されるので)
開発＞Visual Basic＞ThisOutlookSession(ダブルクリック)

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If InStr(Item.Subject & Item.Body, "添付") > 0 And Item.Attachments.Count = 0 Then

  If MsgBox("ファイルが添付されていないようです。本当に送信しますか？", vbYesNo) = vbNo Then Cancel = True
    
End If

End Sub

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If InStr(Item.Subject & Item.Body, "添付") > 0 And Item.Attachments.Count = 0 Then

If MsgBox("ファイルが添付されていないようです。本当に送信しますか？", vbYesNo) = vbNo Then Cancel = True

End If

End Sub

を貼り付けて、保存。