<%
  Dim iMsg
Dim iConf
Dim Flds
Const cdoSendUsingPort = 1 '1일 경우 로컬(SMTP), 2일 경우 외부(SMTP)로 메일전송
Const strSmartHost = "MySmartHostServer" 'Host 설정

'Pickup 디렉토리 설정(익스체인지서버가 설치된 경우는 익스체인지 픽업 디렉토리 지정)
Const strRoot = "C:\Inetpub\mailroot\Pickup"

'CDO 메시지 개체 생성
Set iMsg = CreateObject("CDO.Message")

'SendUsing 속성을 지정하기 위한 개체 생성
Set iConf = iMsg.Configuration

With iConf.Fields
   .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strRoot
   .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
   .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
   .Update
End With

'메일발송
With iMsg
   .To = "메일주소넣어"
   .From = "메일주소넣어"
   .Subject = "테스트입니다."
   .TextBody = "갈까말까?"
   .Send
End With
   
Set Flds = Nothing
Set iConf = Nothing
Set iMsg = Nothing

Response.write "메일발송완료!"
%>