Windows で特別なインストール無しに実行できます 拡張子:txtvbswsfjsphpjavahtmlutf8sjis <JOB> <SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"> </SCRIPT> <SCRIPT language=VBScript> ' *********************************************************** ' 処理開始 ' *********************************************************** Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" ) Call laylaLoadFunction( "baseFunction.vbs" ) Call laylaLoadFunction( "toolFunction.vbs" ) Server = "サーバー:587" Mailfrom = "ユーザーメールアドレス" & vbTab & "ユーザーアカウント:パスワード" Subject = "テスト" Body = GetInline("Mail_Body") Files = "" list = "" list = list & "送り先メールアドレス1" list = list & ";" list = list & "送り先メールアドレス2" list = list & ";" list = list & "送り先メールアドレス3" Mailto = list ret = CDOSendMail( _ Server, _ Mailto, _ Mailfrom, _ Subject, _ Body, _ Files _ ) if ret <> "" then Wscript.Echo ret else Wscript.Echo "メール処理は正常終了しました" end if </SCRIPT> <RESOURCE id="Mail_Body"> システムからのお知らせ 本日リリースされます lightbox </RESOURCE> </JOB> ※ 但し、パスワードは暗号化されません
<JOB> <SCRIPT language="VBScript" src="http://lightbox.in.coocan.jp/laylaClass.vbs"> </SCRIPT> <SCRIPT language=VBScript> ' *********************************************************** ' 処理開始 ' *********************************************************** Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" ) Call laylaLoadFunction( "baseFunction.vbs" ) Call laylaLoadFunction( "toolFunction.vbs" ) Server = "サーバー:587" Mailfrom = "ユーザーメールアドレス" & vbTab & "ユーザーアカウント:パスワード" Subject = "テスト" Body = GetInline("Mail_Body") Files = "" list = "" list = list & "送り先メールアドレス1" list = list & ";" list = list & "送り先メールアドレス2" list = list & ";" list = list & "送り先メールアドレス3" Mailto = list ret = CDOSendMail( _ Server, _ Mailto, _ Mailfrom, _ Subject, _ Body, _ Files _ ) if ret <> "" then Wscript.Echo ret else Wscript.Echo "メール処理は正常終了しました" end if </SCRIPT> <RESOURCE id="Mail_Body"> システムからのお知らせ 本日リリースされます lightbox </RESOURCE> </JOB>