登录论坛 | 注册会员 设为首页 | 收藏本站
当前位置 : 首页>软件学院>程序开发>ASP教程>正文
 
Jmail邮件发送的代码asp可用

http://www.dbit.cn 2009-10-4 8:05:58  来源:东北IT网  编辑:东三省
 

<%
Function SendJmail(emailto,Title,Mailbody)
'Function SendJmail(emailto,email,emailname,Title,Mailbody,emailserver,user,pass)
        emailserver="smtp.163.com"
  user="luqingkkk@163.com"'这里填邮箱用户名
  pass="******"'这里填邮箱密码
  email="luqingkkk@163.com"'这里填邮箱用户名
  emailname="灏洋网"'发信人姓名
  replytos="luqingkkk@163.com"'指定回复人EMAIL

 Set jmail = server.CreateObject("Jmail.Message")  '创建对象
  jmail.Silent = true                         '一般不用改
  jmail.Charset ="gb2312"                    '信件的语言编码
  jmail.ContentType = "text"             '信件的格式html或纯文本
  jmail.From = ""&email&""                '发信人邮箱
  jmail.FromName = ""&emailname&""         '发信人姓名
  jmail.Subject = Title  '信件主题
  jmail.AddRecipient ""&emailto&"" '收信人地址
  jmail.ReplyTo=replytos
  jmail.Body = Mailbody '信件正文
  jmail.MailServerUserName = ""&user&""  '服务器登陆用户名(您的邮件地址)
  jmail.MailServerPassWord = ""&pass&""  '服务器登陆密码(您的邮件密码)
  jmail.Send(""&emailserver&"")          '服务器地址
'  jmail.AddAttachment (replace(server.MapPath("/test.doc"),"",""))
  jmail.Close:Set jmail = nothing
End function
call SendJmail("58375596@qq.com","你好","123")
%>

 
收藏】【打印】【进入论坛
  相关文章:

 
 
 
 
最新文章

中关村艳照门女主角详记录高清组图 
大连护士门大尺度艳照高清组图
iPhone女孩微博爆红 最宝贵东西换iPhon
反恐精英之父内维尔:改变电脑游戏销售
团购网站黎明之前:中国市场惨烈厮杀不
团购鼻祖Groupon中国揭秘:快与慢的商业
Spil Games发布新的品牌形象
1800配置一台主机 不要显示器
联想V360笔记本模特写真
爱国者第四代移动硬盘将面市、低电压保

 
推荐文章
1
2
3
4
5
6
7
8
9
10
iPhone女孩微博爆红 最宝贵东西换
大连护士门大尺度艳照高清组图
中关村艳照门女主角详记录高清组
苹果员工中毒门
宫如敏不雅照疯传 看张馨予韩一菲
深耕市场 永续经营——专访百脑汇
优派专业电子书 让您回家旅途多姿
揭晓百万大奖三星bada魅力绽放中
大明龙权“江湖英雄会”全国PK大
永恒之塔校园达人挑战赛完美落幕
八卦图解 More>>
iPhone女孩微博爆红 最宝贵东西换 大连护士门大尺度艳照高清组图
中关村艳照门女主角详记录高清组 宫如敏不雅照疯传 看张馨予韩一菲