| |
こんにちは １２３ です。
今回は SendMail についての質問なんですが、
第三者がユーザーフォームにあるコマンドボタンをクリックすると、
シートのPrintOutと、
そのシートをCopyして新規Bookを作成し、それを添付して
私のアドレスへ送信させる
ということをやっているのですが、
OutlookExpressでは、他のアプリケーションからメールを
送信する場合は、送信するか否かの確認メッセージがでて、
送信しないを選択すると、私のところにメールが届きません。
（当然ですよね）
そこで、If構文を利用して、送信しないとPrintOutできないようにしたいのです。
その者が、送信したかどうかを判断する方法はないでしょうか？
Private Sub 印刷B_Click()
Application.ScreenUpdating = False
wlist.Copy
ActiveWorkbook.SendMail Recipients:="aaa@bbb.com", Subject:=Date
ActiveWorkbook.Saved = True
ActiveWorkbook.Close
wlist.PrintOut
Application.ScreenUpdating = True
End Sub
|
|
