Windows 2003 Server에서 CDO로 SMTP메일 보내기

[로컬서버 이용시]

 Dim MailBody, myMail

 Set myMail = CreateObject("CDO.Message")
 set iConf = CreateObject("CDO.Configuration")
 Set Flds = iConf.Fields
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\Inetpub\mailroot\Pickup"
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
  Flds.Update
 Set myMail.Configuration = iConf

 myMail.From = 보내는주소

 myMail.To = 받는주소

 myMail.Subject = 제목
 myMail.Htmlbody = 본문
 myMail.fields.update
 myMail.Send

 Set myMail = Nothing
 Set iConf = Nothing
 Set Flds  = Nothing

 

 

  [원격서버이용시]

  Dim MailBody, myMail

  Set myMail = CreateObject("CDO.Message")
  set iConf = CreateObject("CDO.Configuration")
  Set Flds = iConf.Fields

  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "메일서버주소"
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\Inetpub\mailroot\Pickup"
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
  Flds.Update
 Set myMail.Configuration = iConf

 myMail.From = 보내는주소

 myMail.To = 받는주소

 myMail.Subject = 제목
 myMail.Htmlbody = 본문
 myMail.fields.update
 myMail.Send

 Set myMail = Nothing
 Set iConf = Nothing
 Set Flds  = Nothing