2009/09/22(火)16:14
Excel でメール送信(xlDialogSendMail)
仕事の話題ですけど,ある申請書類(Excel Book)を作成後,電子メールでその申請書類
を添付して,決まった相手に送信することが度々あるのですけど,どうも最近,その一連
の作業が面倒でねぇ......
#単なる物臭癖とも言えそうですけど......
で,
手を抜く方法が無いかとイロイロ考えて,
最初に考えついたのは,Excelの組み込みダイアログ(xlDialogSendMail)を使う方法.
これは,かなり簡単に実現できるけど,完全な自動送信ではないことと,
出来上がったものを使ってみて,
そもそもコレを使う意味があるのか?と言う思いも沸いてくるな.
#マクロを走らせた Sheet を,自動添付してくれるところは嬉しいですけど.
と言うのも,
Excel の標準のツールバーの中に,「メールの送信」のアイコンがあるけど,
その機能を単に呼び出しているだけなので,その「メールの送信」ツールバー
を押せばヨイだけになっちゃうからね.
#途中,添付の有無を聞くダイアログが噛んで入ってくるところがチョッと違うけど.
それと,to: 以外の宛先 cc:,bcc:にアドレスをセットする方法が無いところもちょっ
と痛い.
この組み込みダイアログ xlDialogSendMail の引数は,3つしか無く,
第一引数 recipients は,送信先のアドレスで,
第二引数 subject は,メール表題.
第三引数 return_receipt は,開封確認みたい.
:sub SendTest
:Dim recipients, subject, return_receipt As Variant
:
: recipients = MailAddressSet 'Range("R17").Text
: subject = Range("B5").Text
: return_receipt = True
:
: Application.Dialogs(xlDialogSendMail).Show recipients, subject, return_receipt
:
:end sub
結構期待して呼び出したけど,
チョッと駄目かなと言うことで,別の方法を考えます.
© 6ちゃん@もう一度振り出しです.