smtp를 사용해서 잘가던 메일이..갑자기 안갑니다..ㅠㅠ 도움좀 주세요~
※ 필수입력정보 ※
▷ 제품버젼 : windows2003
▷ 오류발생 메뉴/주소 :
▷ 에러메세지 : 오류 '80040211'
/3_robot/1_List/2_Confirm.asp, 줄 159
▷ 질문내용 :
어저께까지 잘 가던 메일이 오늘 갑자기 위와 같은 에러메시지가 나오면서 발송이 안됩니다.
소스를 수정하거나 한게 없거든요...ㅠㅠ 왜 이러는지 좀 알려주세요.
아래는 소스 입니다...
하나포스 계정이 문제가 있는건가요?ㅠㅠㅠ
Set objConfig = CreateObject("CDO.Configuration")
Set objMessage = CreateObject("CDO.Message")
' 메일 서버 세팅
Set Flds = objConfig.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.hanafos.com"
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sentro"
Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "27315**"
Flds.Update
' 발송할 내용 세팅
Set objMessage.Configuration = objConfig
objMessage.To = r_ba_email
objMessage.From = "[관리자]<"&WebMaster_Email&">"
objMessage.CC = ""
objMessage.Subject = mailtitle
objMessage.HtmlBody = mailcontent
objMessage.Fields.Update
objMessage.Send ' 발송
Set objMessage = Nothing
Set objConfig = Nothing
이전 글 | 다른 메일서버로 대체가 되어서, 도메인 없이 기존메일을 볼수 있나요? 3 | 진*언 | 2008.07.25 |
---|---|---|---|
다음 글 | 아웃룩 메일 받기 오류... 2 | 레*스 | 2008.07.17 |