求助Jmail通过smtp.qq.com发送邮件的新方法。
几年前帮朋友写了个电邮群发器,用的Jmail组件(具体版本不知道了)。当时用的QQ邮箱的服务器(QQ账号比较好注册些)也夹杂一些smtp.服务器,当时工作正常。后面更新过一次,可现在源码找不到了,前天重新写了一个,就只有网易的163,126等可以发邮件,QQ服务器的全部拒绝了,求原因。求高人给出QQ服务器的正常发信设置。
贴重写发件设置源码如下:
oJMail=Createobject("jmail.message")
*设置邮件基础信息。。。>
oJMail.Charset = "UTF-8"
oJMail.Logging = .F.
oJMail.silent = .T.
oJMail.FromName = "xxxxx"&&发件人称呼
oJMail.Subject = "xxxxxxxxxx"&&邮件主题
oJMail.Priority = 3
oJMail.ContentType = "text/html"
oJMail.body="尊敬的xxx"+":"&&邮件正文及正文附加
oJMail.AppendText(" 你好。")
oJMail.From = "12345@用于回复的地址,一般就是发件地址。
oJMail.MailServerUserName ="12345@发件QQ账号
oJMail.MailServerPassword ="54321"&&发件QQ密码
oJMail.ClearRecipients()&&清除收件人列表,防重发。
oJMail.AddRecipient("67890@)&&收件地址
nRet=oJMail.Send("smtp.)&&对应的邮箱的服务器地址
*nRet=oJMail.send("12345:54321@smtp.)&&服务器有密码账户验证方式
老是返回.F.,试了两天了,把账号后面的"@尾缀去掉试过不行,加上邮件头发送也不行,邮箱的SMTP服务是开启的。
求教高人。