最近まで知らなかったんですが、VBScriptでメール送信ができるようです。
参考にさせてもらったのは、メモしとこ CDO.Messageによるメール送信です。
参考先のコピペになりますが、以下のような感じでメール送信できるようです。
Set objMail = CreateObject("CDO.Message") objMail.From = "from@hoge.example.com" objMail.To = "to@hoge.example.com" objMail.Cc = "cc@hoge.example.com" '添付ファイル(フィアルパスを指定する) objMail.AddAttachment = "c:\test.txt" objMail.Subject = "メール送信テスト" objMail.TextBody = "CDO.Messageによるメール送信テスト" '送信方法 1:ローカルSMTPサービスのピックアップ・ディレクトリにメールを配置する 2:SMTPポートに接続して送信 3:OLE DBを利用してローカルのExchangeに接続する objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'SMTPサーバを指定(ホスト名orIP) objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.hoge.example.com" 'SMTPポート objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'SSL通信をする/しない objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'SMTP認証 1(Basic認証)/2(NTLM認証） objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'SMTP送信ユーザ名 objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "hoge@hoge.example.com" 'SMTP送信ユーザパスワード objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "passwd" 'タイムアウト objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objMail.Configuration.Fields.Update objMail.Send Set objMail = Nothing
