メール送信機能

「有ったら便利機能」として挙げていたメール送信機能を作成してみました。

日中の約定状況や騰落の状況を携帯にメールする機能です。
将来的には携帯からの返信メールで売買執行する事を計画中です。

とりあえず、main機能を作成しました。

＜実現方法の検討＞
まず、メールを送信機能を実現するに当たっていくつか実現方法を考えてみた。
ベースがEXCELであることは決まっているので、そこから何に連携するかだけだが、
WEB等で調べた結果以下の幾つか方法が見つかった。

　・EXCEL→OUTLOOK
　・EXCEL→外部ツール
　・EXCEL→外部ライブラリ

それそれについてメリット/デメリットがあるが、
一番シンプル且つ、確実な方法をと思い、外部ライブラリを使用することにしました。

世の中にはBASP21という、VBやVBAから使用できるライブラリがあるらしい。
シストレ系では、しばしば使われているようでそこそこ事績が報告されていた。

＜実装方法＞
①DLしたBASP21のFree版のexeファイルをDクリックしてインストール
　※exe/dllなど幾つかのファイルがC:WINNTSystem32配下に配置される

②EXCELのVB Editorを開き、「ツール」-「参照設定」から「Basp21 1.0 Type Libruary」にチェックを入れる。

③コードを書く

という簡単なもの。。。

実際のコードは↓のようになりました
strServer = "smtp.XXXXXX.com" ←プロバイダのsmtpサーバを指定
strTo = "test@docomo.ne.jp"　 ←送信先(携帯)のアドレス
strFrom = "test@XXXXXX.com"　 ←自分のアドレス
strSub = "件名"　　　　　　　　←件名を指定
strBody = "本文"　　　　　　　 ←本文を指定
strFile = "c:temptest.txt"　←添付ファイルのパスを指定

Set bobj = CreateObject("basp21")　←basp21のオブジェクトを作成
result = bobj.SendMail(strServer, strTo, strFrom, strSub, strBody, strFile)
　　　　　　　　　　　　　　　　　　　↑メール送信

携帯に表示した時の一行文字数を調整しながら、
銘柄名/買値/現在値/損益/損益率を一定時間間隔でメール出来るようになりました。