ASP CDO.Message.1 오류 '80040220'

Windows 2008 서버사용시 메일 보내기 오류 발송 내용

CDO.Message 를 이용한 메일 발송이 오류

 

오류명
CDO.Message.1 오류 '80040220'
"SendUsing"  구성 값이 잘못되었습니다. 

 

원인

1. 웹나이트 방화벽

2. 2008 서버사용시 함수 변경

구글 검색을 통해 찾은 문제점

CDO 버전이 업그레이드 되면서, SendUsing을 정확히 지정해 주지 않으면 위와 같은
오류를 발생시킨다고 한다.
그래서 프로그램 쪽에서 메일 발송 함수를 아래와 같이 변경해 주니 잘 되었다.

Function Email_Send(emailSendName, emailSendMail, emailGetName, emailGetMail, emailSubject, emailBody)

    Dim mail l
    Dim MailConfig

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

    Set MailConfig = mail.Configuration
   

With MailConfig.Fields
        '1 (로컬 SMTP) / 2 (외부 SMTP)
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

        'Pickup 디렉토리 설정
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\Inetpub\mailroot\Pickup"

        '호스트 설정
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"

        'SMTP Port
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 
        '연결 시간
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

        .Update

 

    End With
    Set MailConfig = Nothing

    mail.From         = emailSendName & "<" & emailSendMail & ">"
    mail.To            = emailGetName & "<" & emailGetMail & ">"
    mail.Subject     = emailSubject
    mail .htmlBody  = emailBody

    mail.Send
    Set mail= Nothing

End Function

참고 자료 - http://cafe.naver.com/basicwebper.cafe?iframe_url=/ArticleRead.nhn%3Farticleid=4