现在GMail邮箱不能用Jmail组件，请问如何解决这样的问题？

代码如下：
dim  jmail
set jmail=server.CreateObject ("jmail.message")
jmail.Silent =true
jmail.logging = true
jmail.Charset ="utf-8"
jmail.ContentType = "text/html"
jmail.ContentTransferEncoding = "base64"
jmail.Encoding = "base64"
jmail.ISOEncodeHeaders = false
jmail.AddRecipient "*******@,"李生" '收件人郵箱
jmail.From =="*******@' 發信郵箱
jmail.FromName ="huade" '發信人名稱
jmail.Subject ="hi,jim" '發信主題
jmail.Body="How are you" '發信內容
jmail.MailServerUserName ="*******@'用户名称
jmail.MailServerPassWord ="*******" '用户密码
jmail.Priority = 1
isgoA = jmail.Send(smtpserver)
if isgoA then
msg="发送成功！"
else
msg="邮件发送失败！"
end if
jmail.Close
set jmail=nothing

发邮件的服务器是Gmail,请问谁用过gmail发信的，帮忙一下。

[ 本帖最后由 huade 于 2010-12-9 10:18 编辑 ]

把代码发出来,看看谁有服务器帮你测试下，我用163的肯定100%没问题，但是GMAIL的我没有试过.我想应该也可以的。

gmail的有些情况比较特殊。可能设置上需要与通常情况有所差别。

很头疼，有办法帮忙解决一下吗？

请问你是否用过Gmail发信，有的话，可否说得详细些。

gmail的审核制度比163更严格,连注册都要手机号验证.我看你还是改其他的得了.

用gmail发件，需要TLS，比一般的SMTP服务器要复杂些。

gmail要有邀请才能注册吧？

那是陈年旧事

Gmail有SMTP服务器的，地址是 smtp.，端口是465
代码中的smtpserver是否设置成Gmail服务器？
不过我没试过，我只用过163的邮箱