'웹나이트'에 해당되는 글 1건

  1. 2013.11.20 ASP CDO.Message.1 오류 '80040220'
2013.11.20 09:16
 


 

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

 

'Language(언어) > ASP' 카테고리의 다른 글

ASP select case 쓰는 방법  (0) 2013.12.03
ASP 엑셀 다운 받기 관련 코딩  (0) 2013.12.03
ASP CDO.Message.1 오류 '80040220'  (0) 2013.11.20
ASP RS,SET 쿼리 형식  (0) 2013.11.19
ASP Response 개체  (0) 2013.11.01
ASP Server 개체  (0) 2013.11.01
 
 
Posted by 대학교닷컴 대학교닷컴

티스토리 툴바