Asp classic 通过表单（Office365）发送数据时获取错误

我试图在从表单发送此信息时调试此问题，但我一直收到此错误

error '8004020e'
/contacthandler.asp, line 45

我在asp中没有做太多的工作，但是我已经设法从以前的开发人员那里清理了这个文件（仍然有错误）。错误发生在

.Send

。忘记澄清这一点

这是代码。感谢您的帮助

'declare variables
dim name, phone, email, comment, service, returnPage

'set variables to the corresponding fields from contact form
name = request.form("custName")
phone = request.form("custPhone")
email = request.form("custEmail")
comment = request.form("custNotes")
service = request.form("service")
returnPage = request.form("page")

dim theEmail
' set the email content data
theEmail = "<h3>Contact from website, information below.</h3><table border='0'><tr><th>Customer Name:<td>"&name
theEmail = theEmail&"<tr><th>Phone Number:<td>"&phone&"<tr><th>Email Address:<td>"&email&"<tr><th>Service Category:<td>"&service
theEmail = theEmail&"<tr><th valign='top'>Comments/Notes:<td>"&comment&"</table>"

' send the email

dim sch
sch = "http://schemas.microsoft.com/cdo/configuration/" 

Set cdoConfig = CreateObject("CDO.Configuration") 


With cdoConfig.Fields 
    .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
    .Item(sch & "smtpserverport") = 587
    .Item(sch & "smtpserver") = "smtp.office365.com"
    .Item(sch & "smtpauthenticate") = 1
    .Item(sch & "sendusername") = "########"
    .Item(sch & "sendpassword") = "########"
    .update 
End With 

Set cdoMessage = CreateObject("CDO.Message") 

With cdoMessage 
    Set .Configuration = cdoConfig 
    .From = name & "<" & email & ">" 
    .To = "info@mywebsite.com" 
    .Subject = "Website - "&service&" Request" 
    .HTMLBody = theEmail
    .Send 
End With 

Set cdoMessage = Nothing 
Set cdoConfig = Nothing 


'response.write "sent, check the mail"
response.redirect "thankyou.asp"
'returnPage&".asp"

“声明变量
姓名、电话、电子邮件、评论、服务、返回页面
'将变量设置为联系人表单中的相应字段
名称=请求。表格（“客户名称”）
电话=申请表（“客户电话”）
电子邮件=申请表（“客户电子邮件”）
注释=请求表（“客户注释”）
服务=请求表（“服务”）
returnPage=request.form（“页面”）
暗信
'设置电子邮件内容数据
theEmail=“来自网站的联系人，信息如下。客户名称：”&Name
theEmail=theEmail&“电话号码：”&电话和“电子邮件地址：”&电子邮件和“服务类别：”&服务
theEmail=theEmail&“注释/注释：&comment&”
'发送电子邮件
暗色
sch=”http://schemas.microsoft.com/cdo/configuration/" 
设置cdoConfig=CreateObject（“CDO.Configuration”）
使用cdoConfig.Fields
.Item（sch和“sendusing”）=2'cdoSendUsingPort
.项目（sch和“smtpserverport”）=587
.Item（sch和“smtpserver”）=“smtp.office365.com”
.项目（sch和“smtpauthenticate”）=1
.Item（sch和“sendusername”）=“#######”
.Item（sch和“sendpassword”）=“\
.更新
以
设置cdoMessage=CreateObject（“CDO.Message”）
用cdoMessage
Set.Configuration=cdoConfig
.From=名称&“”
.To=”info@mywebsite.com" 
.Subject=“网站-”服务和“请求”
.HTMLBody=电子邮件
.发送
以
设置cdoMessage=Nothing
设置cdoConfig=Nothing
'response.write“已发送，请检查邮件”
response.redirect“thankyou.asp”
“returnPage&.asp”

MSDN（）建议您需要将

.From

字段格式化如下：

.From """" & name & """ <" & email & ">"

。来自“”&name&“”

我使用谷歌查找错误代码，发现了很多网站，他们的意思是发送数据有问题。这可能是另一个麻烦的来源

如果你换了一个，会发生什么

.Item(sch & "sendusing") = 2 ' cdoSendUsingPort

借

---

另外，请在没有任何注释的情况下进行尝试。

您的代码的哪一行是第45行？这将是发送。您从哪里获得变量名称和电子邮件？相同的错误，变量名称和电子邮件来自request.form（“custName”）和request.form（“custEmail”）。是否可以将所有其他代码发布到页面？这可能会提高找到解决方案的机会。已找到此链接。我唯一的想法是..smtp地址不好吗？让我们

.Item(cdoSendUsingMethod) = 1 'cdoSendUsingPickup