Outlookでメール送信確認のポップアップを表示させたい
メールソフト・Outlookを使用していて、誤送信防止のために宛先確認のポップアップウィンドウを表示させたいと思ったことはありませんか？Outlookではアドオンを導入することはできませんが、マクロを組むことでメールの送信確認・宛先確認ポップアップを表示させることができるようになりますよ。
この記事では、Outlookでメール送信確認のポップアップを表示させる方法をご紹介していきます。
Outlookでメール送信確認のポップアップを表示させる方法
それでは、Outlookでメール送信確認のポップアップを表示させる方法を説明します。まずはリボンメニュー上で右クリックして、右クリックメニューの「リボンのユーザー設定」をクリックしましょう。
「リボンをカスタマイズします。」画面が表示されるので、右側の「リボンのユーザー設定」一覧から「開発」のチェックボックスをオンにして「OK」をクリックしましょう。
Outlookのウィンドウに戻ると、タブの一覧に「開発」が追加されています。開発をクリックしてリボンメニューの「Visual Basic」をクリックしましょう。
「Microsoft Visual Basic for Applications」ウィンドウが表示されるので、左上ペインのフォルダを展開して「ThisOutlookSession」をダブルクリックします。編集ができるようになるので、下記のソースコードを貼り付けて上書き保存しましょう。
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo Exception
Dim strAddress As String
strAddress = vbCrLf
Dim objRecipient As Recipient
For Each objRecipient In Item.Recipients
strAddress = strAddress & objRecipient.Name & " " & objRecipient.Address & vbCrLf
Next
Dim strMessage As String
strMessage = "件名:" & Item.Subject & vbCrLf & strAddress & vbCrLf & "上記の宛先に、メールを送信してもよろしいですか?"
If MsgBox(strMessage, vbExclamation + vbYesNo + vbDefaultButton2) <> vbYes Then
Cancel = True
End If
On Error GoTo 0
Exit Sub
Exception:
MsgBox CStr(Err.Number) & ":" & Err.Description, vbOKOnly + vbCritical
Cancel = True
Exit Sub
End Sub
これで、メールの送信時に「上記の宛先に、メールを送信してもよろしいですか？」ウィンドウが表示されるようになります。「はい」をクリックすることで、メールを送信することができますよ。