如何在Classic ASP中使用Exchange服務器發送電子郵件？

Question

我正在遷移一個經典的asp應用程序到一個新的服務器，但smtp服務器是不允許在新的服務器，有人可以給我一個關於如何通過交換服務器發送電子郵件的提示嗎？

Answer 1

經典ASP的CDOSYS component有可以使用通過Exchange服務器發送郵件端口交換的25

<% 
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 
%>