Tag: VisualBasicEditor

OUTLOOKで送信前確認はどうする?

注意:この内容に関して、弊社で一切保証するものではありません。
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