Category: 技術メモ

注意：この内容に関して、弊社で一切保証するものではありません。
OUTLOOK2007を使うようになり、あれ、送信までに
「送信アドレスの確認」って、OUTLOOKではできないの？
そう、そうです。誤送信防止のやつです。他のメーラー
にはついているのに、なぜOUTLOOKにはないの。
誤送信しないのか？
うーーーん、そんじゃVBで作るか？と思い、作ることに
OUTLOOKを開き、
ツール＞マクロ＞VisualBasicEditorで
Project1＞Microsoft Outlook Objects＞ThisOutlookSession
を開き、下記を記述。
・・・・・・・・・・・・・・・・・・・・・・・・
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
For Each Mailto In Item.Recipients
CCList = CCList & Mailto.Address & vbCr
Next Mailto
MSGText = “題名：「” & Item.Subject & “」” & vbCr & “下記が送信予定アドレスです。” & vbCr & CCList & “送信してもよろしいでしょうか？” & vbCr
If MsgBox(MSGText, vbExclamation + vbYesNo) = vbNo Then
Cancel = True
End If
End Sub
・・・・・・・・・・・・・・・・・・・・・・・・
OUTLOOK起動時にセキュリティのことを聞かれるので、そこをどうにかしなければ・・・・
OUTLOOK公式サイト
http://office.microsoft.com/ja-jp/outlook/default.aspx
ITmediaさんの「添付ファイルをうっかり忘れてメール送信」
http://www.itmedia.co.jp/bizid/articles/0801/07/news022.html