关于Jmail发信的问题

gisyj 2006-07-19 09:36:26
<%
Call SendMail("vivpessoa@163.com","yang","Subject","MailBody","yang","gisyj@163.com")
Function SendMail(MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom)
'函数参数说明(收件人地址,收件人姓名(可选),主题,邮件内容,发件人姓名(可选),发件人地址)
'on error resume next
Dim JMail,MailServer,Flag
Set JMail=Server.CreateObject("JMail.Message")
If err Then
SendMail = False
err.clear
Exit Function
End if
JMail.Charset="gb2312" '邮件编码
JMail.silent=True
JMail.ContentType = "text/html" '邮件正文格式
MailServer = "smtp.163.com" '用来发送邮件的SMTP服务器
JMail.MailServerUserName = "gisyj" '登录用户名
JMail.MailServerPassWord = "******" '登录密码
JMail.MailDomain = "163.com" '域名(如果用"name@domain.com"这样的用户名登录时,请指明domain.com),可选
JMail.AddRecipient MailtoAddress,MailtoName '收信人邮箱和收信人名称
JMail.Subject = Subject '主题
JMail.AppendHTML(MailBody)
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = 3 '邮件等级,1为加急,3为普通,5为低级
Flag=JMail.Send(MailServer)
If Flag Then
SendMail=True
Else
SendMail=False
End If
JMail.Close
Set JMail=nothing
End Function
%>

我在本机上装了jmail4.3,然后用以上代码发信,总是不成功,不知道是代码问题,还是要在本机上做一些设置,请各位高手给指点一下,谢谢
...全文
240 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dongfangbai 2006-07-20
如果你用的是天网防火墙的话,也许它会阻止你发送邮件,把防火墙(关闭/卸载)了试试!
  • 打赏
  • 举报
回复
gisyj 2006-07-19
代码没有问题,我上传到一个虚拟主机上可以用,不知道为什么在本机上不可以,smtp服务启动了,还有其他要设置的吗?
  • 打赏
  • 举报
回复
moocoo 2006-07-19
<%

Response.Buffer=True
dim mailbody
mailbody="hello" '邮件内容
Mail=useremail
mailusername="webmaster@163.com" '发件人邮箱
mailuserpass="******" '邮箱密码
Set JMail= Server.CreateObject("JMail.Message")
JMail.Silent= True
JMail.logging = true
JMail.CharSet= "gb2312"
JMail.ReplyTo= "webmaster@163.com"
JMail.From= "webmaster@163.com"
JMail.FromName= "webmaster@163.com"
JMail.MailServerUserName = mailusername
JMail.MailServerPassword = mailuserpass
JMail.Subject= "hello" '邮件标题
Jmail.Body=mailbody
JMail.AddRecipient Mail
JMail.ContentType= "text/html"
JMail.Priority=1
JMail.Send("smtp.163.com")
jmail.close

%>

试试这个 能够用的 睡觉了 呵呵
  • 打赏
  • 举报
回复
gisyj 2006-07-19
启动了
  • 打赏
  • 举报
回复
keenx 2006-07-19
IIS的SMTP服务启动了没有?
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
帖子事件
创建了帖子
2006-07-19 09:36
社区公告
暂无公告