asp cdo.message 메일보내기

서버 2008부터는 사용법이바뀐듯,,?

1. 서버에 SMTP돌아가야함ㅋ.
2. C:\inetpub\mailroot\Pickup 경로에 IIS_IUSRS권한 부여해줘야함ㅋ.
3. IIS6.0에서 smtp릴레이 127.0.0.1허용해줘야함ㅋ.

Dim str
str=str&"blahblah"

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") = 1  ' 1 로컬, 2외부 
.Item (SchemaPath & "smtpserver") = "127.0.0.1"    'CDOSendUsingPort
.Item (SchemaPath & "smtpserverport") = "25"  'Port 
.Item (SchemaPath & "smtpserverpickupdirectory") = "C:\inetpub\mailroot\Pickup"  'Port 
.Item (SchemaPath & "smtpconnectiontimeout") = 30 ' 연결 시간
.Update

End With 
eMailObject.Configuration = eMailConfig 
Set eMailConfig = Nothing
With eMailObject 
.From = "관리자<test@gmail.com>" 
.To = "받는이<get@luve.co.kr>" 
.Subject = "에러보고"
.textbody = "-"
.htmlbody = str
.BodyPart.Charset="ks_c_5601-1987"
.HTMLBodyPart.Charset="ks_c_5601-1987"
.Send 
End With
Set eMailObject = Nothing