FXシステムからのCDOメール送信
メール送信の方法を調べていて、ようやく簡単に送信可能な構文を見つけました。ただしエラー処理もなにもなし。環境は下記のOSなどが対象Windows XP Professional ,CDO okWindows XP Home Edition ,CDO ok 他制限ありWindows 2000 Professional,CDO ok細かいことは下記を参照。http://www.atmarkit.co.jp/fwin2k/win2ktips/428wshmail/wshmail.html#ope以下、上記からの抜粋で実行時にバインディングする方法です。参照設定する場合は Microsoft CDO for Windows 2000 Library にチェック。他の環境で問題ないかどうかは不明です。Sub testMailgoto()Set oMsg = CreateObject("CDO.Message")oMsg.From = "mailsender@example.co.jp" '送信元のアドレスに変更oMsg.To = "user@example.co.jp" '実際の宛先に変更 ,複数指定可能oMsg.Subject = "Test "oMsg.TextBody = "テストメッセージです" & vbCrLf & NowoMsg.SendEnd SubExcel Vba の標準モジュールに転記して、送信元と宛先のアドレスを変更してF5キー、自分の携帯に送信してみました。少しして一発送信されました。こんなんでいいの?ってくらいに簡単。ただしこれだけではエラーメールを受け取ることはできないので別途追加処理が必要だとはおもうけど。とはいえ、自分の携帯だけにメールするなら十分かな。数回繰り返していて、家内の携帯に送信したらアドレスを間違えていたらしく、outlook にエラー送信通知メールがありました。処理が戻ってこないと嫌なので dll にして送信させてもいいかな。でも、いざとなるとかなりめんどっこいなぁ。面倒なのはいやなので追加するかどうか考えてからに。ちなみに受信はどうするのか?という疑問があったので、このあたりを参考にすればいいのかな。http://www.ynsk.co.jp/nsk/knowhow/sendmail/sendmail5.htmhttp://d.hatena.ne.jp/Wacky/20061009/1160379207でもこのへんになるとお手上げかも。http://msdn.microsoft.com/ja-jp/library/ms978698.aspx