移动代码以CDOSYS

问题描述：

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

请学会如何问一个很好的问题。感谢 –

你能告诉我为什么你有这种感觉 – 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

thankkk you.will尽快尝试。 – nadia

再次感谢你的帮助，但我仍然得到同样的错误。我知道你通过SMTP的细节是什么？它是在代码中？ – nadia

您是否在@Martha对您的问题的评论中提出了详细的错误消息？如果你有，那么你应该得到一个消息，让你更好地了解发生了什么问题。通过SMTP详细信息，我的意思是指您尝试通过电子邮件发送SMTP服务器的详细信息 - IP地址，端口和（如果需要进行身份验证）用户名和密码。谁运行你的网络服务器应该能够给你这个信息。 – John

移动代码以CDOSYS

相关推荐