设置Mail = CreateObject("CDO.Message")不起作用 [英] Set Mail = CreateObject(“CDO.Message”) not woking

查看:227
本文介绍了设置Mail = CreateObject("CDO.Message")不起作用的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

过去,我的电子邮件表单正常工作,但是从今天开始,提交表单且未发送电子邮件后,将显示此错误消息:

My email form worked correctly in the past, but starting of today this error message is displayed after the form is submitted and no email is sent:

error ''80070008''
/ho/ewdisp000.asp, line 378



消息的发送方式如下:



This is how the messages were sent:

 <%

Set Mail = CreateObject("CDO.Message")   // line 378
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="xxx@domain.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="password"

Mail.Configuration.Fields.Update

Mail.Subject= "Subject"
Mail.From="xxx@domain.com"
Mail.To="xxx@domain.com" 
Mail.TextBody="Thank you for your feedback"  
Mail.Send 
Set Mail = Nothing

%>

推荐答案

参考-
Refer- Windows Update error 80070008 or 8007000e[^].

It might help you. :)


这篇关于设置Mail = CreateObject("CDO.Message")不起作用的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!

查看全文
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆