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 编辑 ]

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

老邮箱来的。