«

»

Print this 投稿

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

関連記事

Permanent link to this article: http://abundcore.net/archives/91