| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1072 人关注过本帖
标题:jmail+ASP发邮件(带附件)--分享
只看楼主 加入收藏
放任一切
Rank: 2
等 级:新手上路
威 望:4
帖 子:217
专家分:0
注 册:2007-3-22
收藏
 问题点数:0 回复次数:3 
jmail+ASP发邮件(带附件)--分享

'括号::发送邮件服务器,邮件接收人,发送人,登录邮箱的用户名,登录邮箱的密码,邮件主题,邮件内容
function sendmail(smtp,sendto,from,user,pwd,subject,body)
Set jmail = Server.CreateObject("JMAIL.Message") '建立发送邮件的对象
jmail.silent = true '屏蔽例外错误,返回FALSE跟TRUE两值j
jmail.logging = true '启用邮件日志
'加上如下语句,否则还有可能出现乱码的可能性:
jmail.Charset = "GB2312" '邮件的文字编码为国标
jmail.ContentTransferEncoding = "base64"
jmail.Encoding = "base64"
jmail.ISOEncodeHeaders = false

'jmail.ContentType = "text/html" '邮件的格式为HTML格式 -- 有此句则发送附件时为乱码
jmail.AddRecipient sendto '邮件收件人的地址
jmail.From = from '发件人的E-MAIL地址
jmail.MailServerUserName = user '登录邮件服务器所需的用户名
jmail.MailServerPassword = pwd '登录邮件服务器所需的密码
jmail.Subject = subject '邮件的标题
jmail.Body = body '邮件的内容
jmail.AddAttachment Server.MapPath("login.gif")'附件--不能有此句:jmail.ContentType = "text/html"
Jmail.AddAttachment Server.MapPath("b.rar") '否则附件会变成乱码
jmail.Priority = 3 '邮件的紧急程序,1 为最快,5 为最慢, 3 为默认值
if jmail.send(smtp)=false then'执行邮件发送(通过邮件服务器地址)
sendmail=0
else
sendmail=1
end if
jmail.Close
end function

[此贴子已经被作者于2007-7-9 10:54:49编辑过]

搜索更多相关主题的帖子: jmail 邮件 服务器 ASP 
2007-07-09 10:42
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
收藏
得分:0 
好东东,收藏了。
2007-11-20 10:11
cainiao158
Rank: 1
等 级:新手上路
威 望:1
帖 子:157
专家分:0
注 册:2007-9-14
收藏
得分:0 

附件呢?

[此贴子已经被作者于2007-11-20 10:52:21编辑过]


要想飞的更高,就把地平线忘掉!
2007-11-20 10:51
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
以下是引用cainiao158在2007-11-20 10:51:57的发言:

附件呢?


楼上要jmail组件?百度一下,实在没有,留言,我传一个上来。

2007-11-20 11:52
快速回复:jmail+ASP发邮件(带附件)--分享
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020833 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved