メールを簡単に出すプログラム(Windows用) | ライタス株式会社

弊社では、メール関係の案件もお受けすることがあります。

その際に、よく活用するのが今回ご紹介するツールです。

Linuxでは、mailコマンドがあるので、そこまで困らないのですが、Windowsでは、メールを送るには、アプリを使うか、telnetコマンドで直接メールサーバーを呼び出すかぐらいで、なかなか簡単にメールを送ることができません。

調べてみると、VBSでメールを送信するプログラムを組めるとのことだったので、弊社ではこんなスクリプトをよく活用しています。


sendmail.vbs
Set args = WScript.Arguments
Set objShell = CreateObject("Wscript.Shell")
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "[送信元メールアドレス]" 
oMsg.To = "[送信先メールアドレス]"
oMsg.Subject = "[件名]"
oMsg.TextBody = "[本文]" & vbCrLf & Now  ←日付を入れるようにしてます
oMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "[メール送信サーバーのIPかURL]"
oMsg.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = [ポート番号]
For i=1 To WScript.Arguments.Count-1
  oMsg.AddAttachment args.item(i)
Next
oMsg.Configuration.Fields.Update
oMsg.Send



添付ファイルは引数で指定できるようにしてあります。

使い方は、

cscript sendmail.vbs [添付ファイル1] [添付ファイル2] ...

という感じです。
添付ファイルがなくても動きます。


コメント

このブログの人気の投稿

[Virus Error]と件名に挿入されたメール

Firefoxを起動したら、Couldn't load XPCOM. というエラーが出る時の対処法 | ライタス株式会社

マテビュー(マテリアライズドビュー:Materialized View)のせいで、表領域が削除ができない | ライタス株式会社