GMAIL邮箱 SMTP 发邮件问题。

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