在 ASP 中发送电子邮件（CDO 消息）每次挂起大约 5 到 10 秒答案

【问题标题】：Sending email in ASP (CDO message) hangs about 5 to 10 secs each time在 ASP 中发送电子邮件（CDO 消息）每次挂起大约 5 到 10 秒
【发布时间】：2011-06-09 08:44:46
【问题描述】：

我正在使用此代码发送电子邮件：

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sign-up"
myMail.From="support@abc.com"
myMail.To="support@abc.com"
myMail.HTMLBody = signup
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.1and1.com"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

在执行此操作时，页面挂起。在它继续之前大约需要 5 到 10 秒。抱歉，如果这是微不足道的，但我需要一个单独的排队机制，因为我在其他网站上没有这个。他们是怎么做到的？

【问题讨论】：

我也有同样的问题，你还没解决吗？

标签： email cdo.message

【解决方案1】：

邮件会发送吗？你说它需要几秒钟才能继续 - 你是什么意思？

我查看了我的一些 asp cdo 代码，我认为你必须实例化一个 CDO.Configuration 对象。也许有一个为您设置配置值的函数，例如：

Function GetConfig()
Dim oConfig
Set oConfig = CreateObject("CDO.Configuration")
oConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    'etc...
     oConfig.Fields.Update
     Set GetConfig = oConfig
End Function

【讨论】：

电子邮件发送正常。我的意思是，如果我在发送消息后发生重定向，则该重定向会在用户开始发送电子邮件后 5 秒发生。
5 秒有点慢，但我可以看到 CDO 需要很长时间才能联系邮件服务器并发送邮件。也许您可以使用 javascript 显示一条消息，告诉用户他们的邮件正在发送，然后重定向页面将确认它已发送。也尝试实例化上面的配置对象。可能会加快速度。
谢谢安德鲁。它确实加快了一点。