Subject= "标题"

MailAddress="smtp. 'SMTP 服務器
sendmailname="某某有限公司"
LoginName="huadegd@
LoginPass="***********"

myemail=email  '收信人电子邮件地址，表单里的内容将发送到这个信箱中
myname = names '修改收信人姓名
smtpserver =MailAddress  'SMTP 服務器
'修改登陆SMTP服务器的用户名和密码
smtpuser =LoginName
smtppwd =LoginPass

dim  jMail
set jmail=server.CreateObject ("jmail.message")
jmail.Silent =true
jmail.logging = true
jmail.Charset ="utf-8"
jmail.ContentType = "text/html"
jmail.AddRecipient myemail '收件人郵箱
jmail.From =LoginName ' 發信郵箱
jmail.FromName =sendmailname '發信人名稱
jmail.ReplyTo =LoginName '回复郵箱
jmail.Subject =Subject '發信主題
jmail.Body=mailbody '發信內容
jmail.MailServerUserName =smtpuser '账户名称
jmail.MailServerPassWord =smtppwd '账户密码
jmail.Priority = 1
if jmail.Send(smtpserver) = false then
msg="您在本公司網站填寫的《保修注冊》未能成功發至您的郵箱,請檢查您的郵件地址是否填錯。"
else
msg="您在本公司網站填寫的《保修注冊》己成功發至您的郵箱，請注意查收。"
end if
jmail.Close
set jmail=nothing

请问怎么老是发送不了邮件，有请高手指点。


[ 本帖最后由 huade 于 2010-12-1 17:35 编辑 ]

smtpserver =MailAddress  
这句没放在里面吧！

这句话有放里面的，正在头疼呢。

楼主用的是什么邮箱，最近申请的，还是新的邮箱？试试以后老的邮箱。

老邮箱来的。

不到3个月时间，我就见到3次，不同的3个人问同样的问题！建议楼主有问题的时候先论坛查找一下，如果我没有记错的话，就在这几个月里的相关帖子里你就能立刻找到答案，比你在这里问来得更快更实际些！

jmail.MailServerUserName =smtpuser '账户名称
jmail.MailServerPassWord =smtppwd '账户密码
貌似这个用户名和密码不能登录你给定的邮箱吧

下面这个是我以前用过的代码，切实可行

dim name,msg,sendmail
name=request.form("name")
toemail=request.form("toemail")
response.write toemail
set msg = server.createobject("jmail.message")
msg.silent = true
msg.logging = true
msg.charset = "gb2312"
msg.mailserverusername = "madpbpl"'输入smtp服务器验证登陆名 （如：email帐号为123456@,则该处为123456）
msg.mailserverpassword = "123456"'输入smtp服务器验证密码 （用户email帐号对应的密码）
msg.subject = request.form("subject")'信件主题
msg.addrecipient request.form("toemail")'收件人email
msg.from = "madpbpl@" '发件人email，应该与上面的对应，例中是123456@
if name<>"" then
msg.fromname = name'发件人姓名
end if
msg.body = request.form("body")+request.form("body1") '正文

msg.returnreceipt=true
msg.send ("smtp.")'smtp服务器地址（企业邮局地址,与前面的对应）
set msg = nothing
if err then 
sendmail=err.description
err.clear
else
sendmail="ok"
end if
if sendmail="ok" then
  response.write"邮件发送成功，谢谢使用!"
else
  response.write"由于系统错误，邮件未能成功发送!"
end if