そうだＶＢＡでメールしよう

今日もカリカリと・・

最近は、ＶＢＡでいろいろと悪さをしています。

今日はＣＤＯを使ってメールを送る方法を・・・
本当は、ＭＡＰＩで送りたいのですが、今使っているメーラがＭＡＰI対応といいつつうごきません　ｏｒｚ

やり方は簡単
ＸＰならどこでも動くみたいです。
ただし、（なんでもやってくれる）ＳＭＴＰサーバを見つけてくること

ＸＸＸ＝CreateObject("CDO.Message")
でメール送るよっていうのをクライアントに教える

あとは。
Fromに自分のメアドを
Toに相手のメアドを
Subjectは件名
TextBody が本文(改行とかもできる）
Configuration.Fields.Itemは("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
外部ＳＭＴＰをつかうよ

Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
メールサーバ書いてね

oMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ここはＳＭＴＰのポート　だいたいは２５


Configuration.Fields.Update
でおくるよーって宣言して

oMsg.Send
メールすればいい


ただ、連続で遅れなかったりといろいろ課題はありますが・・・
それはのんびり考えます。

参考：http://www.atmarkit.co.jp/fwin2k/win2ktips/428wshmail/wshmail.html