用Jmail发送邮件不成功啊!!试了好多方法了,不成功啊,求大神指教---在线急求!
Dim Jmail,sender
sender="*@163.com" '发送者的邮箱,需要根据实际修改
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312" '发送编码
jmail.ContentType = "text/html"
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 1 '级别越高,发送邮件越快
Jmail.MailServerUserName = "*@163.com" '邮箱用户名,需要根据实际修改
Jmail.MailServerPassword = "*" '邮箱密码,需要根据实际修改
Jmail.From = sender
Jmail.Subject ="麻风,给你的邮件" ' 标题
Jmail.AddRecipient "*@163.com" ' 收邮件 -邮箱
Jmail.Body="你 给我发邮件了!我看看能 成功不!" '邮箱内容
Jmail.Send("smtp.126.com") 'SMTP服务器,需要根据实际修改
response.write "发送成功!"
Set Jmail=nothing