小ネタじゃなく小技です（笑）

え〜っと、本題前に．．．

メッチャ、おもしれぇ〜〜〜！！

これっす！

H2O -FOOTPRINTS IN THE SAND-




いつもの某お方から見せて頂いております（ありがとうございますm(__)m）。
現在、第二巻を観てる最中ですが、ちょっと見入ってしまいますね。
正直、ブログ書いてる場合じゃないような．．．(^^A)

まだ全部観てないので評論は避けますが、実に萌えるヒロイン達です。
ちなみに、個人的には、ひなたちゃんが一番可愛いかも。
それに声当ててるの、田中涼子さん！
正に完璧です！（笑）

そうそう、予告画面．．．かなり笑えます！

さて本題ですが．．．

久々に備忘録っす！

Windowsでプログラムを作るときの小技っす。
はっきり言って枯れた内容なんだけど、あんまり使わないので、結構忘れるんだよね。
と言う訳で、自分への備忘録なんだけど、他の方の参考になりましたら幸いです。
でも、この一言は言わせてね！

この記事の内容は一切保証しませんので、情報を使う場合は各人の自己責任でお願いします。
当然、プログラムソースも同様です。

尚、プログラムソースはVisual Studio 2005のVB.netで作りましたが、VB6.0等でもちょっとの改造で使えるはずです。

・特別なDLLやActiveX等使わずにメールを送信する方法

Dim oMsg As Object
oMsg = CreateObject("CDO.Message")
With oMsg
    .From = "[e-mail]"
    .To = "[e-mail];[e-mail]"
    .Subject = "メールテスト"
    .TextBody = "春香より、テストメッセージです" & vbCrLf & Now
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "0.0.0.0"   'ここにSMTPサーバーのアドレスを入れる
    .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Configuration.Fields.Update()
    .Send()
End With

実はWindiws2000/XP等にはCDO(Collaboration Data Objects)と言うメッセージ用のオブジェクトがありまして、それを使うと簡単に出来ちゃうんです。
んで、使い方は上のリスト参照ね。
これ見れば、VBでプログラム作った事のある方なら楽勝で分かります。
ちなみに、送信先メールアドレスは、セミコロンで繋げれば複数の宛先に送れます。
後、このサンプルはSMTPサーバーのIPアドレスを仮のものにしてありますので、そこは各自の環境に合わせて下さいね。
それと、言うまでもないと思うけど、このサンプルにありますメールアドレスは全て架空ですから！（笑）

それでは、これを実行した結果です。

 

まぁ、メッセージの内容は妄想って事で．．．(^^;)

・プログラムでEXCELデータを操作する

Dim xlsApp As New Excel.Application
Dim xlsWB As Excel.Workbook
Dim xlsWS As Excel.Worksheet
Dim i As Integer
xlsWB = xlsApp.Workbooks.Add
xlsWS = xlsWB.Worksheets(1)
For i = 1 To 10
    With xlsWS
        .Cells(i, 1) = i
        .Cells(i, 2) = "TEST" & i.ToString("00")
    End With
Next
xlsWB.SaveAs("C:\Temp\Test.xls")
xlsWB.Close()
xlsApp.Quit()

EXCELそのものも非常に便利だけど、こんな感じでプログラムから操作できると、更に便利さ倍増です！
ちなみに、これを実行するには．．．

Microsoft Excel 10.0 Object Library

を「参照の読込」で読込むようにしておいて下さい。
尚、当方のEXCELはEXCEL 2002なので"10.0"になってますが、他のバージョンではこの数字が変わります。
ただ、特に気にする事はありませんので．．．(^^A)

んで、上記プログラムを実行した結果です。

 

ま、当たり前の結果です。
だって、プログラムでそうなってるんだし．．．(^^A)

ちなみに、既に存在するEXCELファイルに対しては．．．

xlsWB = xlsApp.Workbooks.Open("C:\Temp\Test.xls")

で開いてから使います。

と言う訳で、非常に枯れた、誰でも知ってる小技でした(^^A)

しかし、ヘッドホンかけて聞いてるH2Oが非常に気になるんですが．．．
なんか、この投稿に1H以上かけてるけど、全てH2Oに見入ってるからです（笑）

さて、風呂入ったら、H2O真剣に観よっと！