★VBSで添付ファイル付きメール送信★
【VBSの作成】
・[mail.vbs][abort.vbs]という名前で作成
・正常時と異常時のメール文章を変更するだけなので、中身はほぼ同じ
ソース↓
------------------------------------------------------------------------------
Dim file_now
Dim file_name
Dim PC_name
Dim oMsg
Dim objNetWork
Set oMsg = CreateObject("CDO.Message")
Set objNetWork = WScript.CreateObject("WScript.Network")
PC_name= objNetWork.ComputerName
file_now = NOW()
file_name = "C:\auto_log\log\" & PC_name & "_" & Year(file_now) & Right("00" &Month(file_now),2)
oMsg.To = "pu-chin@test.com"
oMsg.From = "pu-chin@test.co.jp"
oMsg.Subject ="イベントログのお知らせ [" & Date & "][" & PC_name & "]"
oMsg.TextBody = "月次イベントログ通知" & vbCrLf & file_name & vbCrLf &"PC名：" & PC_name
oMsg.AddAttachment file_name & "_system.csv"
oMsg.AddAttachment file_name & "_security.csv"
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"mail.server.co.jp"
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
oMsg.Configuration.Fields.Update
oMsg.Send
------------------------------------------------------------------------------
変数宣言：[Dim]
---変数---
file_now：今日の日付
file_name：ファイル名
PC_name：ホスト名
oMsg：オブジェクト名
objNetWork：オブジェクト名
---オブジェクト作成---
Set oMsg = CreateObject("CDO.Message")：CDO.Messageオブジェクト
Set objNetWork = WScript.CreateObject("WScript.Network")：WScript.Networkオブジェクト
---メール中身---
宛先：oMsg.To = "宛先アドレス"
送信者：oMsg.From = "送信者のアドレス"
件名：oMsg.Subject = "件名"
本文：oMsg.TextBody = "本文"
添付ファイル：oMsg.AddAttachment "ファイル名"
---定形文かな？？？---
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"★★メールサーバ名★★"
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
oMsg.Configuration.Fields.Update
oMsg.Send
---添付ファイル---
・添付ファイルを複数付ける際は、２行で記述します。
*後ろにつけようとしましたが、出来なかったです(・・;
---内容の違い---
[mail.vbs]の方はこの文章のまま
[abort.vbs]が、本文を[エラー発生]とし、添付ファイルを付けない。
+++++++++++++++++++++++++++++++++++++
ぷーちんです。
VBS説明全く出来ない事が発覚しました。。
お恥ずかしい・・・。
理解までできてない様です。
とりあえず、送信は587で送信しております。
私が構築した環境だと、送信も受信も同じサーバ宛なのでメールサーバが送信サーバなのか受信サーバなのか・・・。
多分SMTPだと思いま、多分!!!
添付ファイルを複数付ける際、カンマとかで区切れないかやったのですが・・・
失敗してしまいました。
ので、２行で記述しております。
これが正しいのか、それとも１行で記述出来たのか・・・
もし、ご存知の方いらっしゃいましたらコメント頂けたら喜びます!!!
これでザッと完成になります。
ふぅ。
あとは、月１で送信するようにタスクに入れるだけです。
後日タスクへの追加方法記載させて頂きます。
今回数日にかけて記載した、これがWin2008R2/Win2012R2に導入済です。
AD入っているためなのか不明ですが、AD機に導入した時謎エラーがありました。
・・・が、それは次回のお話で。
では、次回は、そのエラー(PowerShell)とタスクへの追加方法についてです(*´艸｀*)
[2回]
PR
