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

时间:2007-09-27 13:35:00 

一个用asp来处理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
  %>


 

标签:jmail,发信,模块
0
投稿

猜你喜欢

  • 不要跳转或刷新 实现网页区域选择显示

    2010-07-02 16:25:00
  • css+JavaScript实现PDF、ZIP、DOC链接的标注

    2007-05-11 17:03:00
  • 详解php如何合并身份证正反面图片为一张图片

    2023-05-22 10:44:46
  • 如何让IIS支持wap,让ASP生成wml

    2008-05-18 13:42:00
  • FSO中的SubFolders 属性介绍

    2008-01-05 13:57:00
  • CSS模块化设计

    2009-01-05 12:10:00
  • 如何在Frontpage中定义CSS样式

    2008-08-02 12:32:00
  • 我们需要的是怎样的分页?

    2007-09-28 20:24:00
  • ASP连接MSSQL2005 数据库

    2009-03-08 19:20:00
  • 15个梦幻的登录页面设计展示

    2009-07-19 14:17:00
  • CSS应用的必要步骤:样式重设

    2008-06-11 13:29:00
  • 细化解析:SQL Server 2005 数据库镜像

    2009-01-23 13:41:00
  • SQL语句练习实例之一——找出最近的两次晋升日期与工资额

    2011-10-24 20:16:42
  • 给textarea增加长度限制的几种方法

    2009-06-04 12:27:00
  • 获取Dom元素的X/Y坐标

    2009-10-10 12:49:00
  • asp中记录集对象的getrows和getstring用法分析

    2012-11-30 20:09:49
  • asp对象之:基于adodb.stream的文件操作类

    2008-06-07 08:38:00
  • FrontPage XP设计教程4——Css样式表的应用

    2008-10-11 12:25:00
  • 你是真正的用户体验设计者吗? Ⅱ

    2008-03-21 12:30:00
  • aspjpeg 添加水印教程及生成缩略图教程

    2011-04-04 11:04:00
  • asp之家 网络编程 m.aspxhome.com