不能發送電子郵件從godaddy smtp使用經典的ASP - 去生氣

Question

我真的很困難的東西是非常基本的，需要一些幫助，因爲它不是從godaddy支持即將到來！

出於某種原因，下面的代碼不發送任何電子郵件。

代碼似乎被執行的屬性，並用它調查了很多調試信息，但沒有幫助！

「來自」電子郵件地址是有效的，沒有問題！有任何想法嗎？港口？

歡呼聲中，周杰倫

<% 

Dim objNewMail 
Set objNewMail = Server.CreateObject("CDO.Message") 

objNewMail.From = "info@example.com" 
objNewMail.To = "info@example.com" 
objNewMail.Subject = "Interesting property sent by xxx" 
objNewMail.TextBody = "Click the following link to see the property :" '& vbcr & vbcr & "http://www.maltawide.eu/default.asp?pid=" 

' GoDaddy SMTP Settings 
'I had to remove the smpt settings as I dont have enough rep to post two links! 

Response.Write ("Message sent successfully!") 

%> 

Answer 1

我不知道爲什麼你的消息失敗了，但在這裏是從GoDaddy的託管工作郵件表單代碼。您只需構建表單頁以提交腳本中使用的表單字段，或更改腳本中的表單字段名稱以匹配現有表單，或者用字符串替換表單。示例的「創建代碼的消息部分」中包含了表單條目和分配的變量值的示例。

<% 
Dim strBody 
Dim strToAddress 
Dim strFromAddress 
Dim strReplyAddress 
Dim strBlindCC 

' Create the message 
strBody = Request.Form("Message") 
strToAddress = Request.Form("ToAddress") 
strFromAddress = Request.Form("FromAddress") 
strReplyAddress = "NoReply@WebSite.com" 
strBlindCC = "BlindCC@WebSite.com" 



' Include the schemas 
sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing" 
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver" 


' Set the mail server configuration 
Set objConfig=CreateObject("CDO.Configuration") 
objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort 
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net" 
objConfig.Fields.Update 


' Send the message 
Set objMail=CreateObject("CDO.Message") 
Set objMail.Configuration=objConfig 

objMail.From=strFromAddress 
objMail.ReplyTo=strReplyAddress 

objMail.To=strToAddress 

objMail.BCC=strBlindCC 

objMail.Subject=strSubject 

objMail.HTMLBody = strBody 

objMail.Send 

%>