※ 필수입력정보 ※

▷ 제품버젼 :
▷ 오류발생 메뉴/주소 :
▷ 에러메세지 :

error '8004020f'
/email/email/email_ok.asp, line 36

▷ 질문내용 :
<%

Dim name, email, receiver, receiver_email, content, subject
name = request("name")
receiver = request("receiver")
subject = request("subject")
email = request("email")

receiver_email = request("receiver_email")
content = request("content")
content = replace(content,chr(13)&chr(10),"<br>")



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/smtpserver") = "localhost"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds.update

Set objMessage.Configuration = objConfig
objMessage.To = receiver_email '받는 사람 이메일 주소
objMessage.From = receiver_email '보내는 사람 이메일 주소
objMessage.Subject = subject & "[Client Q&A]" '제목
objMessage.TextBody = content

' 메일 내용이 HTML 형식이면 objMessage.TextBody 대신에 objMessage.HTMLBody를 사용

objMessage.fields.update
objMessage.Send <-----------------여기에서 에러가 뜨는데요

Response.write "발송 완료!!!!"

set objMessage = nothing
set objConfig = nothing
%>