将代码从CDONT移到CDOSYS

时间:2017-04-14 08:18:50

标签: email asp-classic

Unknown column 'final_date' in 'where clause'

以上是来自我公司网站<%@ language="VBScript" %> <html> <head> </head> <body> <% FromName=request.Form("FromName") EmailFrom=request.Form("EmailFrom") EmailTo="sales@trisys.com.my" 'request.Form("EmailTo") CC=request.Form("CC") Subject=request.Form("Subject") Important=request.Form("Important") Content=request.Form("Content") myType=request.QueryString("myType") 'CC="trisys@trisys.com.my" 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>") %> 的代码,我认为很长时间没人检查过。当我尝试编辑它时,电子邮件甚至无法正常工作。所以我知道这是因为enquiry.asp。所以我需要有人帮助或指导我将其更改为CDONT。 希望你们能帮助我。 这是我点击网站上的查询页面提交后得到的错误 enter image description here

我已经尝试检查我的plesk中的自定义错误文档按钮了。这就是你们的意思吗?通过这条消息它究竟想说什么?

enter image description here

1 个答案:

答案 0 :(得分:1)

首先,您需要更改Server.CreateObject语句以创建CDOSYS对象而不是CDONTS对象:

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

下一个区别是消息格式。在CDONTS中Bodyformat=1指定文本格式,Bodyformat=0指定HTML格式。 CDOSYS采用不同的方式 - 它有两个独立的设置,而不是Body。删除您的bodyformat行并替换

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

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

如果您要发送HTML消息,请使用objNewMail.HTMLBody。其他设置 - ToFromSubject等 - 都应与CDOSYS一起使用。

CDOSYS相对于CDONTS的一大优势是它可以使用远程SMTP服务器 - CDONTS只能使用本地服务器。如果是这种情况,您需要添加配置部分。您可能会发现无论如何都需要添加配置部分。我需要知道您的SMTP详细信息,以了解要在配置部分放置什么,但本教程涵盖了大多数排列:

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