ASP中使用jmail发送邮件的函数
来源:互联网 发布:javascript源码下载 编辑:程序博客网 时间:2024/05/18 21:43
今天给大家发布一个可能经常会用到的jmail发送邮件的ASP函数,代码如下:
'smtp为邮件服务器名
'user为smtp邮件服务器上的邮件地址
'pwd为smtp邮件服务器上的邮件的密码
'sendto为要发送的邮件地址
'form发件人名
'subject为主题
'body为邮件内容
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
- ASP中使用jmail发送邮件的函数
- asp使用jmail发送邮件
- ASP使用jmail发送邮件
- asp使用Jmail发送带doc类型附件的邮件
- asp+jmail发送邮件
- asp Jmail发送邮件
- asp+JMAIL发送邮件
- asp Jmail发送邮件
- ASP+JMAIL发送邮件
- ASP.NET+C#使用JMail发送邮件
- Jmail 邮件发送函数
- ASP利用Jmail发送邮件的问题
- JMail组件发送邮件的Asp代码
- 使用Jmail发送邮件
- 使用JMail发送邮件
- 使用jmail发送邮件
- 使用jmail发送邮件
- C#中使用Jmail发送邮件
- 有时候,我们想要的只是一只可以握的手和一颗善解人意的心。
- OCP-1Z0-新051-61题版本-50
- dedecms自定义属性
- Lock&Condition实现三个线程之间的通信
- Centos安装phpmyadmin
- ASP中使用jmail发送邮件的函数
- 美国科技公司实习生薪酬:最高月薪7500美元
- 忘记不可能,坚信可能
- OCP-1Z0-新051-61题版本-51
- 小白dp 348 Optimal Array Multiplication Sequence
- ognl表达式 讲解
- ASP实现一个空间不同域名访问显示不同版权实例
- 2014新年来袭 “幸福de物语”小店年底大促惊喜等您来领
- JBoss 系列七十五: jBPM 6 示例之 rewards