Jmail寄信的實例,模組化隨時調用

作者：Eve Cole 更新時間：2009-06-23 16:40:48

一個用jmail寄信的過程，及使用方法.
發信時，直接呼叫這個過程就行了。

<%
dim str,HtmlBody
HtmlBody= "<html><body bgcolor='red' topmargin='40'><p align='center'>I Love 2Yup!</p></html>"
str=JmailSend( "hello" , "ILoveYou" , true ,HtmlBody, "[email protected]" , [email protected] ,

"hello" , "smtp.sina.com.cn" , "hello" , "Password " )

if str= "Y" then
response . write ( "發送成功" )
else
response . write ( "傳送失敗!請重試!" )
end if
'==================================================
'函數名稱：JmailSend
'作用：用Jmail發送郵件
'參數：Subject 郵件標題
' Body 郵件內容
' Body 郵件內容
' isHtml 是否發送Html格式郵件( true是)
' HtmlBody Html格式郵件內容
' MailTo 收件者Email
' From 寄件者Email
' FromName 寄件者姓名
' Smtp smtp伺服器
' Username 郵件信箱使用者名稱
' Password 信箱密碼
'傳回值：JmailSend= "N"發送失敗JmailSend= "Y"發送成功
'~~~~~~~~~~suercool~~~~~

'==================================================

function JmailSend(Subject,Body,isHtml,HtmlBody,MailTo,From,FromName,Smtp,Username,Password)
dim JmailMsg
set JmailMsg= server . createobject ( "jmail.message" )
JmailMsg.mailserverusername=Username
JmailMsg.mailserverpassword=Password

JmailMsg.addrecipient MailTo
JmailMsg.from=From
JmailMsg.fromname=FromName

JmailMsg. charset = "gb2312"
JmailMsg.logging= true
JmailMsg.silent= true

JmailMsg.subject=Subject
JmailMsg.body=Body
if isHtml= true then JmailMsg.htmlbody=HtmlBody

if not JmailMsg.send(Smtp) then
JmailSend= "N"
else
JmailSend= "Y"
end if
JmailMsg. close
set JmailMsg= nothing
end function
%>