这是我的完整代码。整个页面中没有其他代码。
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="abcd@example.com"
myMail.To="abc@example.com"
myMail.TextBody="This is a message. "
Response.write "Execution Reached Before Send!"
myMail.Send
Response.write "Execution Reached After Send!"
set myMail=nothing
当我运行这个asp页面时，得到的结果是"发送之前达到执行！"。没有其他错误消息。我所能理解的只是myMail之后的任何事情。发送没有被执行，我也没有收到任何电子邮件。
我使用的是Windows Server 2008 R2 Standard（Service Pack 1）。SMTP邮件服务器已安装在本地计算机上。我创建了一封测试电子邮件，放在"C:\inetpub\mailroot\Pickup"文件夹中，它运行得很好。
在发送之前添加了这四行之后，代码就工作了。
myMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
myMail.Configuration.Fields.Item ("schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Update