VBA For ExcelでSMTP over SSLに対応する

EXCELでメール送受信についてググるとBASP21での対応が出てくる。 ただ、BASP21の場合有料版(BASP21 PRO)を購入しない限り、最近はやりのIMAPやSMTP over SSLには 対応できない。

そこで、いい方法がないかと探っていたら、CDO.Message（コラボレーション データ オブジェクト）を 使用する案を発見。

下にコードをまとめておく。

Excel email on CDO.Message