외부에서 smtp사용해서 메일보내기에서요...
※ 필수입력정보 ※
▷ 제품버젼 : 3.2
▷ 오류발생 메뉴/주소 : http://electricity.or.kr/newsletter
▷ 에러메세지 : 오류 '80040211'
▷ 질문내용 :
일단 환경에 대해 설명을 하자면
외부smtp로 사용하고 하는 서버는 2000 이구, nMail이 깔려있는 상태구여
메일발송을 하려고 하는 서버는 2003 입니다
nMail환경설정에서 스팸에 대한 처리는 다 해놨구여
smtp포트는 25번을 사용합니다
제가 사용한 소스는 아래와 같구여
'메일보내기
set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")
' Setting the SMTP Server
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'1일 경우 로컬(SMTP), 2일 경우 외부(SMTP)로 메일전송
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.aaa.com"
Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "계정명@aaa.com"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "계정비번"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
Flds.update
Set objMessage.Configuration = objConfig
objMessage.To = to_email '보내는 사람 이메일 주소
objMessage.From = "보내는이<"&CompanyEmail&">" '받는 사람 이메일 주소
objMessage.Subject = subject '제목
objMessage.HTMLBody = content
objMessage.HTMLBodyPart.Charset="ks_c_5601-1987"
objMessage.fields.update
objMessage.Send
'Response.write "발송 완료!!!!"
set objMessage = nothing
set objConfig = nothing
오류메세지는 objMessage.Send 라인에서 [오류 '80040211'] 입니다
도대체 머가 문젠건지 아무리 찾아봐도 모르겠어요..
이전 글 | 에러관련 문의 1 | 이*진 | 2007.06.07 |
---|---|---|---|
다음 글 | 특정 계정의 아웃룩을 통한 메일받기 문제 1 | 강*훈 | 2007.05.31 |