青岛卓信网络技术有限公司
    主页 / 资讯 / 观点 / 用比较笨的方法记录下win2008 邮件服务器设立过程

用比较笨的方法记录下win2008 邮件服务器设立过程

2019-05-24 16:06


几天来关于邮件组件试了一遍。

因客户需要购买了阿里云独立美国服务器,原空间在西部数据用的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
%>

就这么多.....


服务支持

我们珍惜您每一次在线询盘,有问必答,用专业的态度,贴心的服务。

让您真正感受到我们的与众不同!