http://www.passkorea.net/support/FAQ/ViewDoc.aspx?cat=9&docNo=138위 링크의 기본적인 소스로 먼저 메일이 발송되는지 부터 점검해 보십시오.
Nmail 을 통해서 메일을 발송한다면 아래 라인은 잘못 정의된 값입니다. 삭제 하거나
주석 처리 하십시오.
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Inetpub\mailroot\Pickup"
--------------Original Message--------------
※ 필수입력정보 ※
▷ 제품버젼 :
▷ 오류발생 메뉴/주소 :
▷ 에러메세지 : 오류 '8004020f'
/SManager/menu01/5_mail_Exec.asp, 줄 63
▷ 질문내용 :
'/* 메일전송 **********************************************************************************************************/ set objMessage = createobject("cdo.message") set objConfig = createobject("cdo.configuration")
' 메일서버를 지정 합니다. ' sendusing 값이 1이면 MS SMTP를 이용하고 2이면 소켓전송방식으로 다른 메일서버를 사용 할 수 있습니다. ' smtpserver 항목은 IP혹은 도메인으로 입력하면 됩니다. (예: 211.170.106.1 or mail.passkorea.net ) Set Flds = objConfig.Fields Flds.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\Inetpub\mailroot\Pickup" Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 Flds.Update
Set objMessage.Configuration = objConfig objMessage.To = Receiver '받는 사람의 메일 주소 objMessage.From =" 선랑 <****@****>" '보내는 사람 메일 주소 objMessage.Subject = Subject ' "CDO 컴포넌트 이용하여 Nmail 통해 메일발송 합니다." '제목 'objMessage.TextBody = Str_html ' " 어떤 메일서버를 사용하더라도 릴레이 권한이 있어야 합니다." objMessage.HTMLBody = Str_html ' " 어떤 메일서버를 사용하더라도 릴레이 권한이 있어야 합니다."
' 메일 내용이 HTML 형식이면 objMessage.TextBody 대신에 objMessage.HTMLBody를 사용
objMessage.fields.update objMessage.Send
set objMessage = nothing set objConfig = nothing '/*******************************************************************************************************************/
objMessage.Send <-- 이부분에서 에러가 납니다......
왜 에러가 나는지 모르겠어요.. ㅠㅠ