<%
サブJメール(メール)
Dim JMail、SendMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "テキスト/html"
JMail.ServerAddress=SMTPServer
JMail.Sender=システムメール
JMail.Subject=トピック
JMail.Body=メール本文
JMail.AddRecipient メール
JMail.Priority=3
JMail.Execute
JMail=nothing を設定します
エラーの場合は
SendMail=err.description
エラークリア
それ以外
SendMail="OK"
終了する場合
end sub
sub Cdonts(メール)
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From =SystemEmail
objCDOMail.To =電子メール
objCDOMail.Subject =トピック
objCDOMail.Body =メール本文
objCDOMail.Send
objCDOMail = なしを設定します
エラーの場合は
SendMail=err.description
エラークリア
それ以外
SendMail="OK"
終了する場合
end sub
sub aspemail(メール)
Set mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")
受信者=電子メール
sender=システムメール
subject=トピック
メッセージ=メール本文
メールサーバー=SMTPサーバー
result=mailer.SendMail(メールサーバー、受信者、送信者、件名、メッセージ)
エラーの場合は
SendMail=err.description
エラークリア
それ以外
SendMail="OK"
終了する場合
エンドサブ
%>