CDO.Message를 사용하여 대랑 메일 발송 시 에러 > 패스코리아넷 - 그룹웨어, 인트라넷, 엔메일(메일서버/웹메일/스팸차단/바이러스차단)

※ 필수입력정보 ※

▷ 제품버젼 : nWmail 3.5
▷ 사용중인 주소(URL) : http://
▷ 문제발생시 메뉴/주소 :
▷ 문제발생시 에러메세지
:

▷ 질문내용
:
예전에 cdonts.newmail 을 사용할 때는 5천명에게 전체 메일이 끝까지 잘갔는데, nWmail가 깔려 있는 서버로 옮기고 나서 부터 MS의 IIS-SMTP가 시동이 안걸리는 관계로 cdonts가 말을 안들어서, 작동되는 소스를 무척 어렵게 알아내어 아래와 같이 cdo.message를 사용하고 있습니다.

이메일을 한두개 보내는 것은 문제 없이 가는데 대량으로 보내면 처음 300명 정도만 보내고는 에러가 발생합니다.

1. 다시 cdonts를 사용할 수 있는 방법이 있는지요? (IIS-SMTP의 포트를 '고급', '연결' 버튼 두군데에서 30으로 바꿔도 안됩니다. 시동도 안걸리고)

2. 아니면 cdo.message를 써서 보낼 때 끝까지 보내지 못하고 에러가 나는 것은 어떻게 고칠 수 있는지요? (스레드 수도 최대로 늘리고 Queue를 최대로 늘려도 마찬가지 입니다.)





<%
Dim obj, conf, Fld
Set obj = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set Fld = conf.Fields

Fld(cdoSendUsingMethod) = cdoSendUsingPort
Fld(cdoSMTPServer) = "www.xxx.or.kr"
Fld(cdoSMTPAuthenticate) = cdoBasic
Fld(cdoSendUserName) = "aaaa"
Fld(cdoSendPassword) = "bbbb"
Fld.Update

With obj
Set .Configuration = conf
.MimeFormatted = False
.AutoGenerateTextBody = False
.From = "****@****"
.To = "****@****"
.Subject = "테스트메일제목3"
.HTMLBody = "내용입니다3."
.Send '<----- 대량 메일 보낼 때 에러 나는 줄 ))))))))))
End With

Set obj = Nothing
Set Fld = Nothing
Set conf = Nothing

response.write "OK 1"

%>