久しぶりにAccessVBAネタ

前に納品したAccseeツール
顧客情報から単独アドレス宛に
メールを送信する機能を
作成し納品したのですが
To・Cc・Bccに複数アドレスを
載せることを依頼され
ちゃっちゃと作って納品しました。

単独でアドレスを乗せるのは簡単

Accessとメールソフトを連携させるのは
意外と簡単です。

今回使用するメールソフトは
「Thunderbird」
Access側のフォームイメージを
メールで頂いたので
いつものように悩んで作成

こんな感じと頂いたフォームが
ちょっとイメージしづらかったので
こんな感じにフォームをイメージ変更
中に記載してある文字は
新聞ネタから拝借

※クリックすれば拡大します

管理番号をダブルクリックすると
To・Cc・Bcｃにアドレスが入るようにしました。
単独のアドレス掲載の場合はそれでOKですが、
複数アドレスを載せる場合は一工夫必要です。

To・Cc・Bccに複数アドレスを載せるには？

こういうことは悩むとドツボにハマります。
単純に考えれば、それほど難しい内容ではありません。

私が考えた方法は以下の通り

※クリックすれば拡大します

これで複数アドレスを載せることが出来ます。
何故順番がこうなっているのか
使用しているコマンドの意味は自分で考えてください。

後は「メール作成」ボタンを押せば
「Thunderbird」
に渡すコマンドが走って
メールソフトに
・To・Cc・Bccに複数アドレス
・件名
・本文
を載せることが出来ます。

出来上がれば
とても便利なソフトになります。

久しぶりのAccessVBAネタでした。