移動代碼以CDOSYS

-1

<%@ language="VBScript" %> 

<html> 

<head> 

</head> 

<body>  

<% 
FromName=request.Form("FromName") 

EmailFrom=request.Form("EmailFrom") 

EmailTo="[email protected]" 

'request.Form("EmailTo") 

CC=request.Form("CC") 

Subject=request.Form("Subject") 

Important=request.Form("Important") 

Content=request.Form("Content") 

myType=request.QueryString("myType") 

'CC="[email protected]" 

Important="1" 

' Declare Variables 

Dim objNewMail, strFilePath 

' Create Instance of NewMail Object 

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

' Set Email Priority (1 = Normal) 

objNewMail.Importance = 1 

' Send plain text email 

objNewMail.BodyFormat = 1 

' Senders email address 

objNewMail.From = EmailFrom 

' Recipients email address 

objNewMail.To = EmailTo 

'objNewMail.CC = CC 

' Email Subject 

objNewMail.Subject = Subject 

' Email Body 

objNewMail.TextBody = "From:" & FromName & " " & vbcrlf & "Email:" & 
mailFrom & 

vbcrlf & Content 

' Send Email 

objNewMail.Send() 

' Destroy object to release it from memory 

Set objNewMail = Nothing 

'response.Write "send to:" & strEmailTo 

'response.End 

response.Redirect("Result.asp?myType=" & myType & "&AppMsg=<div align=center> 

<font color=gray size=2><b><p><p><p>THANK YOU<br>Your enquiry has been sent 
viaemail.<br>We will contact you as soon as possible.</b></font></div>") 
%>

移動代碼以CDOSYS

以上是從enquiry.asp從我公司網站上的代碼，我認爲任何人都簽了很長的時間。當我嘗試編輯它時，電子郵件甚至不能工作。所以我知道這是因爲CDONT。所以我需要有人幫助或引導我將其更改爲CDOSYS。希望你們能幫助我。這是我拿到後，我在查詢頁面點擊提交網站 enter image description here

我已經嘗試在我plesk.is檢查自定義錯誤文件按鈕，這什麼你們的意思上的錯誤？這個消息是什麼試圖準確地說？

所有的

enter image description here

來源

2017-04-14 nadia

請學會如何問一個很好的問題。感謝 –

你能告訴我爲什麼你有這種感覺 – nadia

我已經更新了標籤，這段代碼是經典的asp，而不是asp.net。另外，你可以編輯你的問題，併發布你所得到的錯誤信息嗎？ –

首先，你需要改變你的Server.CreateObject語句來創建一個CDOSYS對象，而不是CDONTS對象：

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

下一個區別是消息格式。在CDONTS Bodyformat=1中指定文本格式，Bodyformat=0指定HTML格式。 CDOSYS以不同的方式 - 它有兩個獨立的設置，而不是Body。刪除您bodyformat線，並與

objNewMail.TextBody = "From:" & FromName & " " & vbcrlf & "Email:" & mailFrom & vbcrlf & Content

更換

objNewMail.Body = "From:" & FromName & " " & vbcrlf & "Email:" & EmailFrom & vbcrlf & Content

如果你想送你將使用objNewMail.HTMLBody HTML郵件。其他設置 - To,From,Subject等 - 都應該使用CDOSYS。

CDOSYS在CDONTS上的一大優勢是它可以使用遠程SMTP服務器-CDONTS只能使用本地的。如果是這種情況，您需要添加配置部分。無論如何，您可能會發現您需要添加配置部分。我需要知道你的SMTP細節知道要放什麼東西在配置部分，但本教程涵蓋了大部分的排列：

http://www.paulsadowski.com/wsh/cdo.htm

來源

2017-04-14 11:54:43 John

thankkk you.will儘快嘗試。 – nadia

再次感謝你的幫助，但我仍然得到同樣的錯誤。我知道你通過SMTP的細節是什麼？它是在代碼中？ – nadia

您是否在@Martha對您的問題的評論中提出了詳細的錯誤消息？如果你有，那麼你應該得到一個消息，讓你更好地瞭解發生了什麼問題。通過SMTP詳細信息，我的意思是指您嘗試通過電子郵件發送SMTP服務器的詳細信息 - IP地址，端口和（如果需要進行身份驗證）用戶名和密碼。誰運行你的網絡服務器應該能夠給你這個信息。 – John

移動代碼以CDOSYS

回答

相關問題