Ncdo.dll을 설치하니까 됩니다.

CDO.Message를 사용하는 방법은 제 서버에서는 이메일 주소가 300개 넘어가면 메일서버가 뻗습니다.

nWmail 서버를 정지시켰다가 다시 재가동해야 될지도 모릅니다.

혹시라도 다른 분들이 필요하실까 아래에 정리해 봤습니다.



[Ncdo.dll 설치 방법]

1. passkorea.net의 'Download' > '업그레이드' > 첫번 게시물에서 Ncdo.dll을 다운 받는다.

2. Ncdo.dll을 서버의 C:\WINNT\system32\로 복사한 후

3. '시작'->'실행' 버튼을 누르고 다음 문장을 입력한다.

regsvr32 C:\WINNT\system32\Ncdo.dll



[샘플 코드]

<%

sender_email = "테스트 <test@passkorea.net>"
to_email = "admin@passkorea.net"
subject = "Ncdo 테스트 입니다."
contents = "테스트 메일본문 입니다."
Set mailing = Server.CreateObject("Ncdo.Ncdonts.1") '컴포넌트
mailing.Smtpserver = "mail.passkorea.net" '보낸는 메일서버 지정 (아이피 지정도 가능)
mailing.From = sender_email '보내는 사람 메일 주소
mailing.To = to_email '받는 사람의 메일 주소
mailing.Cc = cc_email
mailing.Bcc = bcc_email
mailing.Subject = subject '메일 제목
mailing.BodyFormat = 0
mailing.Body = contents '메일 내용
mailing.MailFormat = 0
mailing.Importance = 1

if mailing.Send = 1 then
Response.Write "메일발송성공"
else
Response.Write mailing.Errormsg
end if
Set mailing = Nothing
%>



관리자 님이 쓴 글입니다.
--------------------------------------------------------------------
:.Send 에서 특별한 오류문구는 없던가요?
:MS SMTP는 포트를 변경해서 테스트 해보았는데 동시 사용 가능하였습니다.
:일단 오류문구가 있어야 원인을 파악해볼수 있을것 같네요.
:
:컴돌이 님이 쓴 글입니다.
:--------------------------------------------------------------------
::※ 필수입력정보 ※
::
::▷ 제품버젼 : 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를 최대로 늘려도 마찬가지 입니다.)
::
::
::<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -- >
::
::<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -- >
::
::<%
::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"
::
::% >
: