バッチファイルでのメール送信方法について

Question

外部プログラムやCDO.Messagesが利用できない環境(要は社内LAN)で、バッチファイルでメール送信する方法はありますか？25番ポートで接続可能なメールサーバーはあります。

Comments

[pi-chan]

ご使用のWindowsのバージョンは７ですか？

[otn]

WindowsならCDOが使えると思いますが、Windowsじゃないと言うことですか？

[zonzon]

補足：
Windows2003です。

CDOを使う場合、「http://schemas.microsoft.com/cdo/configuration」に接続できないといけないと思われるため(実際にメールサーバーには繋がるが、Microsoftには繋がらない環境では試していませんが)、質問させて頂きました。
Microsoftには繋がらなくても使えるよ、ということであればそういう回答でも結構です。

Answer 1

CDOを使う場合、「http://schemas.microsoft.com/cdo/configuration」に接続できないといけないと思われるため

そんなことはありませんよ。SMTPメールを送信するのにウェブサイトにアクセスなど常識的にあり得ないし、実際にそうでは無いです。
下記スクリプトでウェブサイトのURLに見える物は、スキーマと呼ばれるもので、全世界でユニークな文字列にするためにURIを使っています。

25番ポートで接続可能なメールサーバーはあります。

ということなので、こんな感じで。

Set CDOM = CreateObject("CDO.Message")
CDOM.From = "[e-mail]"
CDOM.To = "[e-mail]"
CDOM.Subject = "test mail"
CDOM.TextBody = "テスト" & vbCrLf
CDOM.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CDOM.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.example.jp"
CDOM.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
CDOM.Configuration.Fields.Update
CDOM.Send

今自宅で、外部に25番ポートでつながらないので、これで実行しました。

Set CDOM = CreateObject("CDO.Message")
CDOM.From = "[e-mail]"
CDOM.To = "[e-mail]"
CDOM.Subject = "test mail"
CDOM.TextBody = "テスト" & vbCrLf
CDOM.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CDOM.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.example.jp"
CDOM.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
CDOM.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CDOM.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "USERNAME"
CDOM.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORD"
CDOM.Configuration.Fields.Update
CDOM.Send

Answer 2

下記ページの方法がそのまま使えませんか？
ご参考
Microsoftのサイトにアクセス出来る必要はないと思います。

Comments

[zonzon]

すみません、自分自身のSMTPサービスも利用できない状況、というのを書けていませんでした。

[pi-chan]

後半もご覧になりましたか？
「25番ポートで接続可能なメールサーバー」のSMTPを利用すれば良いのでは？

Answer 3

telnet を使う方法でよろしければ、こちらが参考になると思います

コマンドプロンプトだけでメールを送信する

（追記）
他の方の質問を拝見し、私はWindowsだと思い込んでました・・・異なるOSでしたらご容赦ください

Comments

[zonzon]

回答有難うございます。
Windows2003です。
ご紹介頂いたURLの方法ですが、コマンドプロンプトで手動で叩けばいけると思いますが、バッチファイル化もできるのでしょうか？

[takito]

そうでした、バッチで実行されたいと書かれていてうっかりしてました・・・

応答を待たないとならないので難しいので、やはりVBScriptを使うのがよいと思います
CDO.Message を使う例は otn さんが回答されている通りです

一応、参考になりそうなサイトurlはのせときます
http://www.atmarkit.co.jp/ait/articles/0405/22/news017.html

Windows Server 2003 の場合はsmtpサービスを手動で追加、開始する必要があります
そうすれば自前のsmtpサービスを使ってメール送信できることになりますね