Question

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

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秒才能继续前进。抱歉，如果这是微不足道的，但我需要一个单独的排队机制，因为我不在其他网站上。他们是怎么做到的？

Answer 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

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

1 个答案: