Jmail发信的实例,模块化随时调用

天云上人 · 发表于 2003-10-2 22:47:42

一个用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,"youname@domain.com",youname@sina.com,
"hello","smtp.sina.com.cn","hello","

assword")

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
%>

		自动登录	找回密码
密码			注册

Jmail发信的实例,模块化随时调用

浏览过的版块