Архив форумов ЦИТФорума

[ZooY]

Такая проблема. Есть ASP-страницы, из нее отправляется почта, причем с огромными аттачами (по 1.5 Mb) и многим людям. На страницу выводятся имена людей, которым была отправлена почта. Но отправка почты дело долгое и страница иногда не догружается, и почта отправляется не до конца. Можно ли отправку каждого письма сделать как сессию, тоесть пока не отправиться предыдущее, последующее ждет, а страница выводилась бы только после того как почта будет всем разослана

[ilya]

а как собственно ты отправляешь почту?

[ZooY]

-

[ilya]

очень информативно я думал вы кусок скрипта пришлете.

[ZooY]

Dim objConnection
Dim objRecordset
Dim i
i=1
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open("PageDB") .. objRecordset = Server.CreateObject("ADODB.Recordset")
objRecordset.Open "SELECT E_Mail,Access,Period,FIO FROM client where Access=True", objConnection

Dim mySmartMail
Dim mysubj


Do While Not objRecordset.EOF
if inStr(objRecordset("Period"),Weekday(Now,2))0 then
On error resume next

Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

' Mail Server
' ***********
mySmartMail.Server = "mail1"
mySmartMail.Charset = "windows-1251"

' From
' ****
mySmartMail.SenderName = "firm"
mySmartMail.SenderAddress = "firm@firm.ru"
mySmartMail.ServerTimeOut = 200
' To
' **
mySmartMail.Recipients.Add Objrecordset("E_Mail"), Objrecordset("FIO")

' Message
' *******
mysubj="текст письма"

mySmartMail.ContentType = "text/html"
mySmartMail.Subject = "рассылка"
mySmartMail.Body = mysubj

' Attached file
' *************
mySmartMail.Attachments.Add Server.MapPath("ost.zip"), false

' Send the message
' ****************
mySmartMail.SendMail

if err.number then

response.write("Error n° " & err.number - vbobjecterror & " = " & err.description & "{br}")

else

Response.Write "{tr}{td}" & objRecordset("FIO") & "{/td}{td}" & objRecordset("E_mail") & "{/td}{td}" & objRecordset("Period") & "{/td}{/tr}"

end if
set mySmartMail = nothing
i=i+1
end if
objRecordset.MoveNext
Loop

[ilya]

а если делать setTimer(SendMail(),1) на каждое письмо? а в SendMail делать отправку

[ilya]

хотя setTimeout в ASP нет, это свойство window. а есть ли у mySmartMail какие-нибудь события? может ли он асинхронно работать?

[ilya]

можно также попробовать испльзовать асинхронный вызов RSExecute. тогда страница не должна повиснуть. См. http://www.citforum.ru/internet/common/r_scripting.shtml
Можно сначала составить список клиентов (на APS), затем вызывать RSExecute с ф-ей отсылки а на callback повесить вызов следующей отсылки.

[ZooY]

да я уж думал об этом, только я незнаб как из процедуры на джаваскрипт вызывать процедуру на вбскрипт

[ilya]

удаленно можно вызывать и VBScript. см. статью

[ZooY]

-