我有一个经典的 ASP 页面,它创建一个CDO.Message
对象来发送电子邮件。该代码适用于 Window Server 2003,但不适用于 2008。在 2008 年,会引发“访问被拒绝”错误。这是我为诊断问题而编写的一个简单的测试页面。我怎样才能让它在 Windows Server 2008 上运行?
dim myMail
Set myMail=CreateObject("CDO.Message")
If Err.Number <> 0 Then
Response.Write ("Error Occurred: ")
Response.Write (Err.Description)
Else
Response.Write ("CDO.Message was created")
myMail.Subject="Sending email with CDO"
myMail.From="sender@mycompany.com"
myMail.To="recipient@mycompany.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
End If