Outlook2013での送信確認メッセージの表示方法

Office2013を最近使用しています。バージョンアップするごとにシンプルになっているように感じます。相変わらず送信確認ダイアログは実装されていませんでした。例のごとくOutlookのマクロに自分で追加する必要があるようです。あるいは送受信時間を延ばして確認する時間を設けるというのも手かもしれません。
Outlook2013のオプション→リボンのユーザー設定から開発を有効化します。
リボンに開発タブが追加されるので、VisualBasicを選択して以下のようなマクロを追加します。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strTo As String
Dim strCC As String
strTo = Application.ActiveInspector.CurrentItem.To
strCC = Application.ActiveInspector.CurrentItem.CC
If MsgBox("To:" & strTo & vbNewLine & "CC:" & strCC & vbNewLine & "送信しますか？", vbYesNo) = vbNo Then
Cancel = True
End If
End Sub
場合によってはタイトルなども確認ダイアログに出すというのも良いかもしれません。