NEW Nmail PHP 3 업그레이드 할인
자세히 보기

Nmail ASP 서비스 종료 안내(EOS)

Nmail ASP (nWmail, Nmail Server) 제품은 유상 유지보수를 포함한 모든 서비스가 종료되었습니다.

멀티도메인 메일발송건

삽*중 2002.06.29 06:28 조회 652

수고하시네요..
동료들과 열심히 삽질하다가 조언을 구하구자 이렇게 글을 보냅니다.
바쁘시더라도 읽어보시기를 간절히 바라며 완료일이 다가오자
이건 바다에 다이빙하고 싶은 심정이라서..

웹메일로서 Nmail 3.1을 다운받아서 사용하고 있는데..
멀티 도메인으로 쓸려고 하는데 전에 누가 구축한 것을 참고로 사용할려고 하는데..
제 환경이 win2000 Server에 한 도메인에서는 잘 돌아가는데
고정 ip에 다른 도메인에서는 메일을 보낼려고 하는데 이 방식이 맞는지
도무지 감이 안잡혀서 이글을 보내요..

*********** DNS 환경 ***************
주축이 된 웹서버 :
: ============= DNS 정보 ==================
: (부모 ~) MX 10 xxx.co.kr
: (부모 ~) A 111.111.111.111
: www A 111.111.111.111
: ============= DNS 끝. ====================

멀티도메인의 다른 네임서버 : 1번 상황
: ============= DNS 정보 ==================
: (부모 ~) MX 20 mail.xxx.co.kr
: (부모 ~) A 111.111.111.111
: www A 111.111.111.111
: ============= DNS 끝. ====================
멀티도메인의 다른 네임서버 : 2번 상황
: ============= DNS 정보 ==================
: (부모 ~) A 111.111.111.111
: mail MX 20 mail.xxx.co.kr
: www A 111.111.111.111
: ============= DNS 끝. ====================
위의 1,2번 방법중 어느 것이 맞는지... 또
*********** DNS 환경 ***************

Nmail에는 계정을 등록한 사용자가 회원들에게 대량메일발송(약230건)을
발송하려는데 당연히 멀티도메인에서(위의 1,2번 상황).. 이를 따로 구현과
테스트을 했는데..
******** 해당 문서의 참고코드을 보면 ***********************
FileSystemObject을 사용하여 보낼사람을 한 묶음으로 (연속적인 데이타)
예) 홍길동
****@****
...
Do While Not ReadStream.AtEndOfStream
name = ReadStream.ReadLine & NewLine
email = ReadStream.ReadLine & NewLine

' 해당 문서을 Html로 구성
Memo = BodyHtml

' 위의 멀티도메인으로 설정
servers = "xxx.co.kr"
mailservers = "xxx.co.kr"

user = "admin"
from_name = "관리자"
TooMailLeft = 0
mail_count = 0

From = "****@****"
Tom = email
Cc = ""
Subject = "회원정리에 따른 공고문 발송"
charset = "iso-2022-kr"
encoding = "7bit"
Sendmail.sendtype = "html"
Sendmail.encoding = encoding
Sendmail.encodinglang = "ks_c_5601-1987"
Sendmail.Make_body servers, user, memo

' 이 방법으로는 에러는 없는데 메일이 발송이 안되요..
' 근데 전에는 이방법으로 했다는데. 도무지. ㅠ.ㅠ
방법1) Sendmail.Sendformemail Memo, servers, From, Tom, Cc, Subject, charset, sendtype

' 아래의 방법으로는 모두 실패
' (참조페이지 : 메인웹서버의 메일보내는 페이지에서 발취)
방법2) if Sendmail.Sendemail(servers, mailservers, user, from_name, From, Tom, Cc, Subject, charset, sendtype,
mail_count, TooMailLeft) <> 0 then
response.write "fail" & "<BR>"
end if

' 아래의 방법에서는 해당 에러내용 표기
방법3) Sendmail.Sendemail servers, mailservers, user, from_name, From, Tom, Cc, Subject, harset, sendtype,
mail_count, TooMailLeft
==================== 실행 결과 ========================
Microsoft VBScript 런타임 오류 error '800a01c2'
인수의 개수나 속성 할당이 잘못되었습니다.: 'Sendmail.Sendformemail'
/mailsend.asp, line 32
==================== 실행 결과 ========================

Loop
...
*********************************************************
위의 사항이 실제 메일발송부분이예요.. 그런데 전에는 되었다고 했는데(방법1)..
문제점을 알아야 풀수 있는데 이건 어떤게 문젠지 알수 없어서..
이렇게 글을 보냅니다. 지금도 삽질중이므로 되도록이면 답장을 목메달게
기다리겠어요..
꼭 읽어주시고요.. 틀린것이 있다면 가차없이 충고해 주세요..
그럼 좋은 하루되시기를..

댓글 0
이전 글 궁금해여 1 궁*이 2002.06.30
다음 글 송신이 전혀.... 2 이*아 2002.06.29