如何在Classic ASP中使用Exchange服务器发送电子邮件?

时间:2015-04-23 08:49:12

标签: asp-classic

我正在将经典的asp应用程序迁移到新服务器,但是新服务器中不允许使用smtp服务器,有人可以给我一些关于如何通过交换服务器发送电子邮件的提示吗?

1 个答案:

答案 0 :(得分:1)

Classic ASP' CDOSYS component有一个远程服务器参数,可用于通过端口25上的Exchange服务器发送电子邮件。

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>