본문 바로가기
Development/Visual Basic | VBScript | ASP

윈도우 2008서버에서 ASP로 이메일 발송 - CDO.Message

by Dev. Jkun 2011. 1. 10.
반응형
테스트 환경
  • Windows 2008 Server R2
  • IIS 7.5 (SMTP만 6.0)
  • ASP

웹서버를 윈도우 2003 에서 2008 로 교체하는 상황이 생겨서 교체하게 되었다.
근데 잘되던 SMTP로 메일발송하는 코드가 작동오류.
해서 개인적인 생각으로는 왠만하면 2008로 교체하며 이메일로 인한 오류는 거의 이것들 일것 같은
생각이 든다.

먼저 간단하게 함수를 만들어서 테스트를 해보았다.

Public Function eMailCDOSend(MailTag, MailTitle, Sender, Receiver)
' 2008서버에서 발송하는 환경정보 설정

Dim eMailObject, eMailConfig
Set eMailObject = Server.CreateObject("CDO.Message")
Set eMailConfig = Server.CreateObject("CDO.Configuration")
Dim SchemaPath : SchemaPath = "http://schemas.microsoft.com/cdo/configuration/"

With eMailConfig.Fields
.Item (SchemaPath & "sendusing") = 2 'CDOSendUsingPort
.Item (SchemaPath & "smtpserver") = "127.0.0.1" 'CDOSendUsingPort [ServerIP]
            .Item (SchemaPath & "smtpserver") = "localhost"    'CDOSendUsingPort
.Item (SchemaPath & "smtpserverport") = "25" 'Port
.Update
End With
eMailObject.Configuration = eMailConfig
Set eMailConfig = Nothing

With eMailObject
.From = Sender
.To = "<" & Receiver & ">"
.Subject = MailTitle
.HTMLBody = MailTag
.HTMLBodyPart.Charset = MailCharSet
.Send
End With
Set eMailObject = Nothing
End Function

Dim MailSendReturnValue
MailSendReturnValue = WVP.eMailCDOSend ("<h4>발송</h4>", "발송","www.jkun.net","jkun75@jkun.net")


결과는 정상이었다. 정상적으로 결과를 반환한다.
그런데도 메일 발송에는 실패하는 것이다.
해서 다음을 확인한다. 아 그리고 SMTP 를 IIS 6.0 으로 설치하였는데 7.5 에서는 테스트를 해보지 않았다.
일단 IIS 6.0 기준으로 릴레이 제한을 확인한다.




이렇게 해서 확인했는데도 실패하는거다. 아래와 같이..
아래 메세지는 에러객체 메세지를 찍은것이다.

서버가 하나 이상의 받는 사람 주소를 거부했습니다.
서버 응답은 다음과 같습니다. 501 5.5.4 Invalid Address 
-2147220977

문제는... 받는 사람 이메일주소에 내 이름을 썼다는 것이다. 미쳐가지고.. ㅋㅋ
다시 정상적으로 이메일주소를 입력하고 테스트하니 모두 정상.

우리 모두 필요악인 삽질을 줄이는 즐거운 현상이 많아지길. ㅋㅋ
삽질보단 고민과 생각을 늘리는 쪽으로~

그리고 댓글 달아주는 센스! ㅋㅋㅋ
반응형

'Development > Visual Basic | VBScript | ASP' 카테고리의 다른 글

IIS (7.0 이하 버전 기준 확장자 매핑)  (0) 2011.04.07
XML Parse  (0) 2011.03.28
VBScript Functions  (0) 2010.12.13
ABC 업로드 컴포넌트 속성  (0) 2010.12.01
ASP 날짜 관련  (0) 2010.10.06

댓글