エクセルVBAで複数の宛先を指定してメールを送信する。

昨日書いたコードで、エクセルのVBAからメールを送ることはできるようになりました。

で、一行一顧客みたいな感じで表を作っていたのですが、一つのお客さんでも複数のメールアドレスに送りたい、ってことがあります。

二行にすればすむ話なんですが、同じお客さんの名前が二行ある、ってのがなんか嫌でなんとかならんかと模索しました。

BASP21のサイトを見ると、複数の宛先を入れる場合は

とするらしい。

ってことはや、宛先を「,」で区切って、「,」を「vbtab」に置換すればいいんじゃないか、ってことでコードを修正してみました。

上記のように修正したことで、ちゃんと複数宛先に送る事ができました。

CCも入れる場合は

ってやればいいみたいです。

CCも一個セルを用意して、複数の場合は宛先と同じようにすればいいから、CCに担当者を複数入れて、ってゆうのもできそうです。