Forms 无法通过ASP表单发送电子邮件

Forms 无法通过ASP表单发送电子邮件,forms,email,asp-classic,Forms,Email,Asp Classic,由于以下错误,我无法通过表单发送电子邮件。我假设表格不起作用是因为CDO的磨损?我不确定,但我也不确定如何解决这个问题 CDO.Message.1 error '80040220' The "SendUsing" configuration value is invalid. /thankyou.asp, line 24 CDO.Message.1错误“80040220” “SendUsing”配置值无效。 /谢谢,第24行 代码 我没有访问物理服务器的权限,我自己也无法更改权限 有没

由于以下错误,我无法通过表单发送电子邮件。我假设表格不起作用是因为CDO的磨损?我不确定,但我也不确定如何解决这个问题

CDO.Message.1 error '80040220' The "SendUsing" configuration value is invalid. /thankyou.asp, line 24 CDO.Message.1错误“80040220” “SendUsing”配置值无效。 /谢谢,第24行 代码


我没有访问物理服务器的权限,我自己也无法更改权限

有没有办法修复这段代码以使其再次工作

我试过这个:

将SendUsing更改为1


并设置谷歌snmp发送电子邮件,没有太多的结果。任何信息都会有帮助。

用以下代码替换您的代码:

<%
Set cdoConfiguration = Server.CreateObject("CDO.Configuration") 

With cdoConfiguration 
  .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
  .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
  .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
  .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
  .Fields.Update 
End With 

Dim tmpStr
tmpStr = ""

tmpStr = "<font size=""3"" face=""verdana"">"
tmpStr = tmpStr & "<ul>"
tmpStr = tmpStr & "<li><strong>" & "From: " & "</strong>: " & Request.form("Name") & "</li>"
tmpStr = tmpStr & "<li><strong>" & "Email: " & "</strong>: " & Request.form("Email") & "</li>"
tmpStr = tmpStr & "<li><strong>" & "Phone: " & "</strong>: " & Request.form("Phone") & "</li>"
tmpStr = tmpStr & "<li><strong>Questions/Comments</strong>:<br/>"
tmpStr = tmpStr & Replace(Request.Form("Details"), vbCrLf, "<br />")
tmpStr = tmpStr & "</li>"
tmpStr = tmpStr & "</ul>"
tmpStr = tmpStr & "<p>Sent at " & Now() & "</p>"
tmpStr = tmpStr & "</font>"

Set newMailObj           = Server.CreateObject("CDO.Message") 
newMailObj.Configuration = cdoConfiguration 
newMailObj.Subject       = "name Questions/Comments" 
newMailObj.From          = Request.Form("Email")
newMailObj.To            = "admin@domain.com" 
newMailObj.HTMLBody      = tmpStr 

newMailObj.Send 

set newMailObj = nothing     
set cdoConfiguration = nothing
%>

让我们知道它是否是这样工作的,因为如果是这样,您的代码(或者至少是您粘贴到我们的部分)是不正确的


顺便说一下,如果您使用的是
localhost
,我几乎可以肯定服务器配置是不必要的。。。如果您使用远程服务器,如
smtp.server.com

查看此帖子,我认为您缺少一个配置。Fields DJ,我收到与字段“objMessage.configuration.Fields.Item(“)=25”相同的错误“如果您使用的是gmail smtp服务器,那么您应该使用端口587,而不是端口25。您的配置字段中还需要用户名和密码。我刚打电话给客户支持,想看看我们是否可以使用localhost,他们给了我一个通往我们的smtp的网关,但它仍然可以工作。那么,它现在是否可以工作,如果不能,我粘贴的代码仍然不起作用?然后你应该向你的主机请求一个例子,因为他们的FAQ中总是有这样的例子。。。可能是一个特殊的配置。我明天会的。有人告诉我,他们所做的配置可能需要时间才能生效。明天早上我会调查这件事。谢谢,成功了,谢谢。我花了一个半小时与客户服务,还发现我们有两个FTP帐户。虽然内容相同,但我拥有的不是正确的。。。非常感谢你!