ASP的聯繫表格不能發送電子郵件

Question

嗨即時通訊做一個ASP的聯繫表，由於某種原因，我不斷收到此。

服務器對象錯誤ASP 0177：800401f3'

Server.CreateObject失敗

/confirmation.asp，10號線

800401f3

我覺得有件事錯了我的SMTP ，請任何幫助，將不勝感激。

<% 
DIM strEmail, strFirstName, strLastName, strSubject, strComments 
strEmail = request.form("Email") 
strFirstName = request.form("FirstName") 
strLastName = request.form("LastName") 
strSubject = request.form("Subject") 
strComments = request.form("Comments") 

DIM Mailer,strMsgHeader, qryItem, strMsgInfo 
Set Mailer = Server.CreateObject("smtpout.secureserver.net")//this line might be wrong. 
Mailer.FromName = "Web Designs" 
Mailer.FromAddress= "carlos@example.net" 
Mailer.ReplyTo = strEmail 
Mailer.RemoteHost = "mail.example.net" 
Mailer.AddRecipient "", "" 
Mailer.Subject = "Online Inquiry" 
strMsgHeader = "This mail message was sent from the Online Form" & vbCrLf & vbCrLf 
Mailer.BodyText = strMsgHeader & vbCrLf & "Email: " & Request.Form("Email") & _ 
vbCrLf & "First Name: " & Request.Form("FirstName") & _ 
vbCrLf & "Last Name: " & Request.Form("LastName") & _ 
vbCrLf & "Subject: " & Request.Form("Subject") & _ 
vbCrLf & "Comments: " & Request.Form("Comments") 

IF Mailer.SendMail THEN 
Response.Write strFirstName & ",<br>" 
Response.Write "Your message has been successfully sent." 
ELSE 
Response.Write "The following error occurred while sending your message: " & Mailer.Response 
END IF 
%> 

Answer 1

看來你混淆了'發送電子郵件庫'和你的SMTP配置。

郵件程序應該像

Set Mailer = Server.CreateObject("CDO.Message") 

（雖然這可能取決於你的IIS版本）

要配置SMTP，你應該使用這個對象：

Set cdoConfig = CreateObject("CDO.Configuration") 
cdoConfig.Fields.Item(cdoSMTPServer) = "smtpout.secureserver.net" 

編輯：例如代碼：CDO Classic ASP form not working