windows 2008 iis7.x SMTP CDO 참고사항

Utility/UtilityL2012. 8. 28. 10:25

windows 2008 iis7.x SMTP CDO 참고사항

운영체제/Windows 2011/06/28 18:01

CDO SMTP를 쓰려면 iis6 가상서버를 설치해야한다.
프로그램추가/제거에서 SMPT 서버 설치 2개 선택하고 설치하면 됨.

c:\inetpub\mailroot
디렉토리에 읽기/쓰기 권한을 부여 해야만 CDO 메일이 발송된다.

windows 2008 에서는 사용자 계정 컨트롤이라는게 존재하므로
각각의 경우에 맞는 계정들에게 읽기/쓰기 권한을 줘야 한다.

권한을 주지 않았을 경우는 '액세스가 거부되었습니다' 와 같은 오류가 발생했다.

예를 들자면,

작업스케쥴에 등록해서 vbs 같은것을 돌릴때는
mailroot 디렉토리에 해당 작업 실행 계정 권한을 추가하고

ASP와 같은 웹 스크립트를 돌릴때는
mailroot 디렉토리에 IIS_IUSRS‎ 계정 권한을 추가하라는 것이다.

또한, 아래의 VBS 소스 중 pickup 디렉토리 지정하는부분이 내 경우엔 꼭 필요해져 버렸다.
지정하지 않았을 경우 'pickup 디렉터리 경로가 필요하지만 지정되지 않았습니다' 오류가 발생했다.

01
'*************************************************************************

02
'* CDO 메일 발송

03
'*------------------------------------------------------------------------

04
'* mail_from = "홍길동<hong@kil.com>"

05
'* mail_to (여러사람일 경우는 , 로 구분)

06
'* mail_html = "" : "text" : "html"

07
'*************************************************************************

08
Function mail(mail_from, mail_to, mail_subject, mail_body, mail_html, mail_charset, mail_attach)

09
    On Error Resume Next '// 오류 잡기

10
 
11
    Dim objMessage, objConfig, Flds

12
 
13
    SET objMessage = CreateObject("CDO.Message")

14
    SET objConfig = Createobject("CDO.Configuration")

15
 
16
    '''''''''''''''''' Setting the SMTP Server ''''''''''''''''''''''''

17
    Dim schema : schema ="http://schemas.microsoft.com/cdo/configuration/"

18
    SET Flds = objConfig.Fields

19
    With Flds

20
        .Item(schema & "sendusing") = 1 '// SMTP 위치? 1=로컬 : 2=외부

21
        .Item(schema & "smtpserver") = "localhost"  '// 서버 주소

22
        .Item(schema & "smtpserverport") = 25           '// 서버 포트

23
        .Item(schema & "smtpconnectiontimeout") = 30    '// 접속시도 제한시간

24
        '.Item(schema & "smtpauthenticate") = 1  '// SMTP 접속 인증방법 설정

25
        '.item(schema & "sendusername") = "id@domain" '// SMTP 서버에 인증 ID

26
        '.item(schema & "sendpassword") = "******"  '// SMTP 서버에 인증 암호

27
        '.Item(schema & "smtpusessl") = 1

28
        .Item(schema & "smtpserverpickupdirectory") ="C:\inetpub\mailroot\Pickup"

29
        .update

30
    End With

31
 
32
    SET objMessage.Configuration = objConfig

33
 
34
    With objMessage

35
        .From = mail_from

36
        .To = mail_to

37
        .CC = ""

38
        .Subject = mail_subject

39
 
40
        If mail_charset = "" Then mail_charset = "ks_c_5601-1987"

41
 
42
        If LEFT(mail_body, 7) = "http://" Then

43
            .CreateMHTMLBody mail_body

44
            'echo(mail_body)

45
        ElseIf LEFT(mail_body, 7) = "file://" Then

46
            .CreateMHTMLBody mail_body

47
        Else

48
            .BodyPart.Charset = mail_charset

49
 
50
            If mail_html = "text" Then

51
                .TextBody = mail_body

52
            ElseIf mail_html = "html" Then

53
                .HTMLBody = mail_body

54
                .HTMLBodyPart.Charset = mail_charset

55
            End if

56
        End if

57
 
58
        If isset(mail_attach) Then

59
            .AddAttachment mail_attach

60
        End if

61
 
62
        .DSNOptions = 14

63
        '.Fields("urn:schemas:mailheader:return-receipt-to") = "id@domain"

64
        '.Fields("urn:schemas:mailheader:disposition-notification-to") = "id@domain"

65
        .Fields.update

66
        .Send   '// 메일 보내기

67
    End With

68
 
69
    SET objConfig = Nothing

70
    SET objMessage = Nothing

71
 
72
    If Err <> 0 Then mail = Err.Description Else mail = ""    '// 오류 발생하면 오류상세를 반환

73
End Function

74
</hong@kil.com>

ASP.NET 메일보내기 (Windows2008 )

.NET

2010/01/22 14:07

http://blog.naver.com/bada3233/100098231939

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

Web Development/ASP 2011/01/10 12:55

테스트 환경

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

문제는... 받는 사람 이메일주소에 내 이름을 썼다는 것이다. 미쳐가지고.. ㅋㅋ

다시 정상적으로 이메일주소를 입력하고 테스트하니 모두 정상.

우리 모두 필요악인 삽질을 줄이는 즐거운 현상이 많아지길. ㅋㅋ

삽질보단 고민과 생각을 늘리는 쪽으로~

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

저작자표시 비영리 변경금지

Posted by Julyus

Elephant11