コメント |
Windows で特別なインストール無しに実行できます
@DIV
<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>
@END
※ 但し、パスワードは暗号化されません |