asp 메일 발송

시나리오

입력

정보

Windows 2003 서버에서 CDO.Message를 이용한 메일 발송이 갑자기 오류가 났다.
오류명은 아래와 같다. 처음보는 오류.. ^^;

CDO.Message.1 오류 '80040220'
"SendUsing"  구성파일 오류

원인을 찾아보니, 웹나이트 방화벽을 돌리기 시작한 시점부터 문제가 되었다.
그래서 웹나이트 방화벽을 잠시 끄고 발송해보니, 잘 되었다.

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


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

    Dim Send_Mail
    Dim MailConfig

    Set Send_Mail  = Server.CreateObject("CDO.Message")
    Set MailConfig = Send_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

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

    Send_Mail.Send
    Set Send_Mail = Nothing

End Function

[출처] CDO.Message 메일 보내기 문제점|작성자 셰프

비고

입력