AS400ã®ç°åžžãã¡ãŒã«ã§éç¥ããæ¹æ³ãæ¢ããŠããããå€éšã®SMTPãµãŒããŒãå©çšããŠã¡ãŒã«ãéä¿¡ããäºã¯ã§ããªããSMTPãµãŒããŒãç«ãŠãŠãæ¥æ¬èªã¯æ±ããªããSMTPãµãŒããŒãç«ãŠãŠããŠãŒã¶ãŒãç¡ããšéä¿¡ã§ããªã
ãªã©ã®è«žäºæ ãšèªèº«ã®AS400ã«å¯Ÿããã¹ãã«ã®ç¡ããèžãŸããäžã§äžèšã®æ¹æ³ãåã£ãã
AS400èªèº«ããã¡ãŒã«ãéä¿¡ããããšã¯è«ŠããŠãRUNRMTCMDã䜿ã
ããããŠããŸãã°ããšã¯Windowsã®é åã«ç¡çç¢çåŒãããåºãããVBScriptã¯èµ·åæã«cscript AS400Mail.vbs
ãšããªããŠã¯ãªããªãã®ã§ãåŒã³åºãçšã®batãã¡ã€ã«ãçµã¿åãããŸãããã¡ãŒã«ã®SubjectãšBodyãvbså ã§èšå®ããããã«ããã®ã¯ãbatãã¡ã€ã«ããæž¡ããªãã£ãçºã®åŠ¥åã§ã(æ±)ã
AS400Mail.vbs
Set a = CreateObject("CDO.Message")
a.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
a.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.xxx.xxx"
a.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
a.Configuration.Fields.Update
a.From = "xxxx@exsample.com"
a.To = "test@exsample.com"
a.Subject = "[AS400]ãšã©ãŒéç¥"
a.TextBody = "AS400ã«ãŠãšã©ãŒããŸããã" & vbCrLf
'// éä¿¡ãã¿ãŒã³æå®ããããïŒ
If WScript.Arguments.Named.Exists("I") Then
iSendMode = 0
If WScript.Arguments.Named("I") <> "" Then
iSendMode = CInt(WScript.Arguments.Named("I"))
End If
SELECT CASE iSendMode
CASE "1"
' 01 ãã¡ã€ã«ããã¯ã¢ãã¿çš
a.Subject = "[AS400]ãã¡ã€ã«ããã¯çºçéç¥"
a.TextBody = "AS400ã«ãŠãã¡ã€ã«ããã¯çºçéç¥ãçºçããããã§ãã" & vbCrLf
CASE ELSE
a.Subject = "[AS400]ãšã©ãŒéç¥"
a.TextBody = "AS400ã«ãŠãšã©ãŒããŸããã" & vbCrLf
END SELECT
End If
'// æå»ãæ«å°Ÿã«è¿œå
a.TextBody = a.TextBody & Now
'// ã¡ãŒã«éä¿¡
a.Send
AS400MAIL.BAT
cscript D:cmdsAs400Mail.vbs /I:%1