1.9w+
社区成员
35.7w+
社区内容
- 主页
为什么我的JMAIL程序发送不了邮件?程序没有任何错误
大家看一下我的代码:
<html>
<title>HELLO</title>
<body>
<%'Dim JMail
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = "smtp.163.com" '发送邮件的服务器
jmail.AddRecipient "zoudaizhu276@163.com" '邮件的收件人
jmail.SenderName = "SenderName" '邮件发送者的姓名
jmail.Sender = "zoudaizhu276@163.com" '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
%>
</body>
</html>
程序可以运行,但就是接收不到邮件,,我都不明白为什么了?有谁能帮助我吗?我的QQ是17185254,谢谢
<html>
<title>HELLO</title>
<body>
<%'Dim JMail
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = "smtp.163.com" '发送邮件的服务器
jmail.AddRecipient "zoudaizhu276@163.com" '邮件的收件人
jmail.SenderName = "SenderName" '邮件发送者的姓名
jmail.Sender = "zoudaizhu276@163.com" '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
jmail.Subject = "Mail Subject" '邮件的标题
jmail.Body = "Mail Body" '邮件的内容
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
%>
</body>
</html>
程序可以运行,但就是接收不到邮件,,我都不明白为什么了?有谁能帮助我吗?我的QQ是17185254,谢谢
...全文
zoudaizhu 2004年12月23日
谢谢各位的回贴
mzhmark 2004年12月22日
如果不设置ServerAddress就可以不设置用户名与密码，不过这样服器要有SMTP服务
gu1dai 2004年12月22日
楼主
你的用户名和密码呢
无密码163的服务器会给你发信？拜托
看来楼主没用过outlook或者foxmail等工具了
你的用户名和密码呢
无密码163的服务器会给你发信？拜托
看来楼主没用过outlook或者foxmail等工具了
eme520 2004年12月22日
hackate(青羽兰心-------~兰心*-*寒~) ( ) 信 再具休点呀。
给个可以直接调适的撒？
给个可以直接调适的撒？
zoudaizhu276 2004年12月22日
谢谢 hackate的回贴,我想问一下,用户名跟密码是不是必须的?谢谢...还有需要配置什么吗?我用自己的机子调试的,我装了IIS,WINXP系统
hackate 2004年12月22日
<%
function SendMail(mailto,subject,msg)
dim JMail
Set JMail = Server.CreateObject("JMail.Message")
jmail.silent = true
JMail.ISOEncodeHeaders = False
JMail.Charset = "gb2312"
JMail.ContentTransferEncoding = "base64"
JMail.From = "xxxxx@163.com"
jmail.MailServerUserName = "xxxxx" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "xxxxx"
JMail.FromName = "xxxxx"
'JMail.ReplyTo = mailto
JMail.AddRecipient mailto
JMail.Subject = subject
JMail.Body = msg
SendMail=JMail.Send ("smtp.163.com")
Set JMail = Nothing
end function
%>
function SendMail(mailto,subject,msg)
dim JMail
Set JMail = Server.CreateObject("JMail.Message")
jmail.silent = true
JMail.ISOEncodeHeaders = False
JMail.Charset = "gb2312"
JMail.ContentTransferEncoding = "base64"
JMail.From = "xxxxx@163.com"
jmail.MailServerUserName = "xxxxx" '登录邮件服务器所需的用户名
jmail.MailServerPassword = "xxxxx"
JMail.FromName = "xxxxx"
'JMail.ReplyTo = mailto
JMail.AddRecipient mailto
JMail.Subject = subject
JMail.Body = msg
SendMail=JMail.Send ("smtp.163.com")
Set JMail = Nothing
end function
%>
scoutlin 2004年12月22日
你邮件的密码呢？
hackate 2004年12月22日
我给你我的看看吧，晕车了！
eme520 2004年12月22日
怎么没人回答呢？