环境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