几天来关于邮件组件试了一遍。
因客户需要购买了阿里云独立美国服务器，原空间在西部数据用的jmail组件，一直好用
购买服务器后代码复制过来肯定不好用了，原因很简单，没有安装jmail组件
安装jmail
仍然不好用
百度查出是兼容32位系统问题，按照提示操作并注册好jmail组件，依然不好用
通过探针，检测了常规的邮件组件装了一遍，还是无效
通过微信求助
找到一哥们给搞定了
重装win2008服务器
安装CMailServer
用QQ邮箱开启smtp,并通过授权码登陆
代码张贴如下：
<%
Dim objMail
'初始化aspEmail组件
Set objMail = Server.CreateObject("Persits.MailSender")
'设定SMTP模式为SSL，端口号为465
objMail.SSL=True
objMail.Port=465
'设置邮件编码格式为UTF-8，MIME编码为Quoted-Prontable，必须有，否则中文乱码
objMail.CharSet="UTF-8"
objMail.ContentTransferEncoding="Quoted-Prontable"
'设定邮箱的smtp服务器地址，如smtp.abc.com，使用时要替换为自己的地址
objMail.Host = "smtp.qq.com"
'设定发送者的邮箱地址
objMail.From = "88888@qq.com"
'设定发送者显示的名称，如不设置，则显示发送者邮箱地址，要编码为utf-8，否则中文乱码
objMail.FromName = objMail.EncodeHeader(Sender,"utf-8")
'添加接收者的地址
objMail.AddAddress "le888onid@qd8886an667.com"
'设置邮件标题，要编码为utf-8，否则中文乱码
Subject="标题lu"
objMail.Subject = objMail.EncodeHeader(Subject,"utf-8")
'邮件内容为html，根据实际情况设置，默认false
objMail.IsHTML = true
'邮件内容
objMail.Body = "<div style=""color:red;"">luceshi</div>"
'smtp身份认证信息
objMail.Username="88888@qq.com"
objMail.Password="改成自己的授权码"
'发送邮件
objMail.Send
'完成后释放资源
Set objMail=nothing
%>
就这么多.....
服务电话： 13153221315
