盘锦网站建设,盘锦做网站,盘锦网站设计,盘锦网页设计,盘锦网站制作,盘锦网络公司,盘锦网页制作,盘锦网站优化,盘锦网站推广,盘锦网站策划设计
设为首页  加入收藏  联系我们 日期:
博客登录 用户名: 密码: 注册
 
互动 博客 家园 相册 亲子乐园
媒体 盘锦直播 辽河晚报 盘锦论坛
汽车 盘锦违章 辽油违章 网上选号
娱乐 休闲游戏 热播剧集 高清影院
买卖 盘锦团购  房产 二手 消费指南
便民 人才 招聘 找工作 家政 教育
查询 医保帐户 汽车客运 公交线路 航空售票 列车时刻
电信 话费查询 3G上网卡 宽带测速 软件下载 网址大全
服务 网站建设 域名注册 空间租用 主机托管 成功案例
盘锦地区规模最大的网站建设机构 国家级网站建设资质
  首  页 自助建站 建站套餐 域名注册 空间租用 主机托管 成功案例 400电话 办公OA  

如何利用ASP程序来使用JMail发邮件

发布时间:2007-03-23 11:27:30   浏览人数: 578792 次  
  关键字: JMail - 本站搜索 - Google搜索 - Baidu搜索 - Yahoo搜索 - sougo搜索
  关键字: JMail发邮件例程 - 本站搜索 - Google搜索 - Baidu搜索 - Yahoo搜索 - sougo搜索
  关键字: JMail发邮件 - 本站搜索 - Google搜索 - Baidu搜索 - Yahoo搜索 - sougo搜索


<%
if Request("MailtoAddress") <> "" then
    msg = SendMail
(Request("SMTPServer"),Request("SMTPServerUserName"),Request("SMTPServerPassword"),
Request("MailDomain"),Request("MailtoAddress"),Request("MailtoName"),Request("Subject"),
Request("MailBody"),Request("FromName"),Request("MailFrom"),Request("Priority"))
    if msg then Response.Write("发送成功") else Response.Write("发送不成功")
    Response.End()
end if
function
SendMail(SMTPServer,SMTPServerUserName,SMTPServerPassword,MailDomain,MailtoAddress,MailtoName,
Subject,MailBody,FromName,MailFrom,Priority)
    dim JMail, msg
    set JMail=Server.CreateObject("JMail.Message")
    JMail.Charset="gb2312" '编码
    JMail.silent=true '设置为true,JMail不会抛出例外错误.
    JMail.ContentType = "text/plain" '邮件正文格式
    'JMail.ServerAddress = SMTPServer '用来发送邮件的SMTP服务器(无效)
    '指定邮件服务器的地址。可以指定多个服务器,用分号点开。可以指定端口号。
    '如果serverAddress保持空白,JMail会尝试解决远程邮件服务器,然后直接发送到服务器上去。???
    '如:JMail.ServerAddress = &tquo;mail.mydom.net; mail2.mydom.net:2500"

    JMail.MailServerUserName = SMTPServerUserName '登录用户名
    JMail.MailServerPassWord = SMTPServerPassword '登录密码
    JMail.MailDomain = MailDomain '域名(如果用“name@domain.com”这样的用户名登录时,请指明domain.com
    JMail.AddRecipient MailtoAddress,MailtoName '收信人
    JMail.Subject = Subject '主题
    JMail.Body = MailBody '邮件正文(纯文本格式)
    JMail.FromName = FromName '发信人姓名
    JMail.From = MailFrom '发信人Email
    JMail.Priority = Priority '邮件等级12345
    msg = JMail.Send(SMTPServer)
    JMail.Close
    set JMail = nothing
    SendMail = msg
end function
%>








 
  

  
    
    
  
  
    
    
  
  
    
    
  
  
    
    
  
  
    
    
  
  
    
    
  
  
    
    
  
  
    
    
  
  
    
  
 
收件人邮箱:
收件人:
主题:
内容:
发件人邮箱:
发件人:
  
等级:






上一篇:ASP发邮件例程
下一篇:ASP.net连接SQL Server2000数据库例程
互联盘锦网站 版权所有©2002-2012 0427.COM 本站E_mail:webmaster@0427.com
地址:辽宁省盘锦市兴隆台区鹤舞路1号 邮编:124010 本站客服热线:0427-3210427 3200427
本站长年法律顾问:北京英浩律师事务所 主任、高级律师:李海波 备案号:辽ICP备12007079号-2    
以下js为测试信息