※ 필수입력정보 ※

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

error '8004020f'
/member/sendmail_test.asp, line 47

line 47은 send구문입니다.

▷ 질문내용 :

아래와 같이 원격서버 smtp서버를 이용해 보내는 asp 구문을 사용하는데
send구문에서 에러가 나네요
현재 qmail을 사용하고 있는데
qmail는 이상이 없고요

Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPort = 2
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout= "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAccountName = "http://schemas.microsoft.com/cdo/configuration/smtpaccountname"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic = 1
Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"
Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"

Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields

' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

' Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail.xxx.xxx"
.Item(cdoSMTPServerPort) = 25
.Update
End With

Set objMessage = Server.CreateObject("CDO.Message")

Set objMessage.Configuration = objConfig

With objMessage
.To = "****@****"
.From = "****@****"
.Subject = "테스트"
.HTMLBody = "테스트입니다."
.Send
End With

Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing

상기 구문에서
.send가 47라인입니다.
faq에서 하라는대로 햇는데도 안되네요
빠른 답변 바랍니다.