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

最新推荐文章于 2025-10-05 09:36:49 发布

原创

最新推荐文章于 2025-10-05 09:36:49 发布 · 2k 阅读

标签

#asp #performance #服务器 #authentication #network

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

环境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.Subject ="邮件的主题"
ObjSendMail.From = "发送邮件人的信箱@domail.com"
ObjSendMail.TextBody ="邮件的内容，注意必须是纯文本。如果要换行，请使用VbCrLf换行。还有个是HtmlBody好像，这个可以用HTML代码。"
ObjSendMail.Con

最低0.47元/天解锁文章