-1
我使用的ASP代碼和AspEmail組件發送電子郵件給我們clinets，但我有一些problmes ...尋找郵件解決方案
我有更多的則1000個的電子郵件地址，我需要向他們發送一封電子郵件由於我的SMTP提供商限制，我無法將它們全部作爲密件抄送添加到一封電子郵件中，但我需要分別發送每封電子郵件，因此需要永久循環+1000次，並引發服務器超時錯誤。
我需要每天發送20次這些電子郵件。
這是我的腳本：
on error resume next
msg = "SOME TEXT HERE"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "SMPT.HOST.ADDRESS"
Mail.Port = 25
Mail.CharSet = "UTF-8"
Mail.ContentTransferEncoding = "Quoted-Printable"
Mail.From = "[email protected]"
MailSubject = "email subject"
Mail.Subject = Mail.EncodeHeader(MailSubject, "utf-8")
Mail.Body = msg
Mail.IsHTML = True
zBcc = split(zBcc, ";") '1000 emails here
for i=0 to Ubound(zBcc)
zBcc(i) = trim(zBcc(i))
if len(zBcc(i))>0 then
if inStr(zBcc(i), " ")>0 then
else
if (Mail.ValidateAddress(zBcc(i)) = 0) then
Mail.Reset()
Mail.AddAddress zBcc(i)
Mail.Send
end if
end if
end if
next
set Mail=nothing