プログラミングやパソコン設定など備忘録

あきらちんの技術メモ

VBA

EXCEL VBAでメール一括配信!添付ファイルも付けられるよ その2

更新日:

はじめに

以前に公開したメール一括配信では、BASP21を利用したもので、Excelが32ビット限定でした。

今回は「CDO.Message」を利用して配信できます。Excelが64ビットでも利用できます。添付ファイルも同様に対応しています。

ダウンロード

 

ちょこっと解説

上記よりダウンロードして直接みていただければと思いますが、今回の大きな変更点は、標準モジュールのMailSendファンクション部分です。

BASP21を利用したときは以下の1行でよろしくやってくれましたが、

ret = SendMail(szServer, mailTo, szFrom, szSubject, szBody, szFile)

次の内容で置き換えております。

添付ファイルは、objMessage.AddAttachment を何度も実行することで複数追加できます。

上記のコード以外にもちょこちょこ修正していますので、前回のものを修正しようと思っている方はご注意ください。

 

最後に

それからメールアドレスやメールの内容を間違わないように十分にご注意ください。間違っても私の責任ではございませんので(⌒ω⌒;)

 

スポンサードリンク

スポンサードリンク

-VBA
-, ,

Copyright© あきらちんの技術メモ , 2020 All Rights Reserved Powered by STINGER.