ASP使用CDO对象发送电子邮件

最新推荐文章于 2021-06-27 08:10:59 发布

Donthan

最新推荐文章于 2021-06-27 08:10:59 发布

阅读量1.8k

点赞数

分类专栏： ASP Applications 文章标签： asp performance 服务器 authentication network 浏览器

本文链接：https://blog.csdn.net/Donthan/article/details/7316430

版权

在Windows Server 2003 R2的Plesk环境中，由于服务器非正常重启，邮件服务出现问题。通过研究CDO对象，发现实际问题是服务器的邮件服务未启动。通过Plesk的General-Domains设置，开启Performance选项中的Mail服务，特别是Horde IMP H3，成功恢复了邮件功能，并能使用ASP通过CDO对象发送邮件。

摘要由CSDN通过智能技术生成

环境Windows Server 2003R2 英文版，Plesk服务器管理器，邮件服务用的是MailEnalbe，IIS没有开SMTP。

因为美帝的一次机房事故，导致我们在洛杉矶的服务器非正常重启一次，然后我们的邮件服务就不能用了，直接在浏览器地址栏输入webmail.domain.con也不可访问，Plesk提示没有开启邮件服务。

我对Plesk和MailEnable之前几乎没有了解，所以发不出去邮件，从程序员的角度出发，以为是CDO组件出了问题，没想到绕了个原路，明白了CDO对象的使用。记录如下：

Dim ObjSendMail
'下面定义的五个常数是干什么的？我也不知道，反正就这么定义去，英文注释看不懂-_-
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0 'Do not authenticate 
Const cdoBasic = 1 'basic (clear-text) authentication 
Const cdoNTLM = 2 'NTLM
Set ObjSendMail = CreateObject("CDO.Message")    
ObjSendMail.To ="邮件要发给谁就写谁的邮箱@domain.com" 
ObjSendMail.Subjec