※ 필수입력정보 ※

▷ 제품버젼 :

▷ 오류발생 메뉴/주소 :

▷ 에러메세지 : 오류 '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 <-- 이부분에서 에러가 납니다......

왜 에러가 나는지 모르겠어요.. ㅠㅠ