CDO 컴포넌트 이용하여 발송 문제
※ 필수입력정보 ※
▷ 제품버젼 : Nmail ASP 3.8
▷ 오류발생 메뉴/주소 :
▷ 에러메세지 : 오류 '8004020f'
CDO 컴포넌트을 이용해서 메일을 보내는데요
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") = "127.0.0.1"
Flds.update
Set objMessage.Configuration = objConfig
=======================================================
objMessage.To = "****@****" '받는 사람 이메일 주소
받는 사람 이메일 주소에 따라 오류 메시지가 출력 됩니다. 오류 '8004020f'
네이버, 네이트는 오류 메시지 없이 발송이 잘 되어지는데요
원인이 무엇인지요...
=======================================================
objMessage.From = name &" <"&email&">" '보내는 사람 이메일 주소
objMessage.Subject = "[기술지원]" & subject '제목
objMessage.HTMLBody = content
If Len(checkEmpty) > 0 Then
objMessage.AddAttachment full_attach_name
End If
' 메일 내용이 HTML 형식이면 objMessage.TextBody 대신에 objMessage.HTMLBody를 사용
objMessage.fields.update
objMessage.Send
set objMessage = nothing
set objConfig = nothing
Response.Write("<script language=javascript>")
Response.Write(" alert('sucess!');")
Response.Write("location.href = 'sendmailForm.asp'")
Response.Write("</script>")
Response.End
이전 글 | 리턴메일 분석좀 부탁합니다 1 | 지* | 2009.06.17 |
---|---|---|---|
다음 글 | 배경 디자인 변경 문의. 1 | 신*훈 | 2009.06.16 |