ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文

  メンテナンス 前画面に戻る

対象スレッド 件名: メール送信スクリプト ( 雛型 )
名前: lightbox
処理選択
パスワード

件名 メール送信スクリプト ( 雛型 )
名前 lightbox
コメント
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

※ 但し、パスワードは暗号化されません