| 本月文章推荐 |
Jmail发信的实例,模块化随时调用发表日期：2003-9-6
|
|
一个用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","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 %> |
| 上一篇：实现有管理功能的ASP留言板
人气:135503 下一篇：纯ASP(VBscript)写的全球IP地址搜索程序 人气:35786 |
| 浏览全部Jmail的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
