2011-01-14 82 views
3

我正在使用此代码发送电子邮件约5至10秒:在ASP(CDO消息)发送电子邮件挂起每次

Set myMail=CreateObject("CDO.Message") 
myMail.Subject="Sign-up" 
myMail.From="[email protected]" 
myMail.To="[email protected]" 
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秒才能开始。道歉,如果这是微不足道的,但我需要一个单独的排队机制,因为我不这样在其他网站上。他们如何做到这一点?

+0

我有同样的问题,你没有解决它呢? – Artemination 2015-03-02 17:54:06

回答

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 
+0

电子邮件已发送确定。我的意思是,如果我在发送邮件后发生重定向,那么在用户开始发送邮件后5秒内发生重定向。 – greener 2011-01-14 20:01:53

相关问题