ファイル＞オプション＞トラストセンター＞トラストセンターの設定＞マクロの設定＞すべてのマクロを有効にする
※デジタル署名が上手くいかないとき
ファイル＞オプション＞リボンのユーザー設定＞(右側)開発にチェック
(上部に開発メニューがー表示されるので)
開発＞Visual Basic＞ThisOutlookSession(ダブルクリック)
|
1 2 3 4 5 6 7 8 9 |
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 |
を貼り付けて、保存。