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秒ほどかかります。これが些細なことである場合は申し訳ありませんが、他のWebサイトではこれを行わないため、別のキューイングメカニズムが必要ですか. 彼らはこれをどのように行っていますか？

4

1 に答える 1

1

メールは送信されますか？先に進むまでに数秒かかるとおっしゃっていますが、どういう意味ですか？

私が試しているaspcdoコードのいくつかを調べたところ、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 に答える