4

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

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

4

1 回答 1

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
于 2011-01-14T19:55:07.943 回答