|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
一个用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中常见的80004005错误原因及解决 下一教程: ASP编写不再让人讨厌的自动弹出窗口 您可以阅读与"JMAIL发信的实例,模块化随时调用"相关的教程: · 一个用JMAIL发信的过程,及使用方式.使用时直接调用就行 · JMAIL发信实例,可直接调用 · JMAIL实例 · ASP与TXT组合设计程序的实例 · JMAIL4.1用POP3收信的例子 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |