'######## 메일 보내기 설정
set objMessage = create**("cdo.message")
set objConfig = create**("cdo.configuration")

Schemas = "Http://Schemas.Microsoft.Com/Cdo/Configuration"

Set Flds = objConfig.Fields
With Flds
   Flds.Item(Schemas&"/Sendusing") = 1
   Flds.Item(Schemas&"/Smtpserver") = "localhost"
   Flds.Item(Schemas&"/Smtpserverport") = 25
   Flds.Item(Schemas&"/Smtpconnectiontimeout") = 30
   Flds.Update
 End With

Set objMessage.Configuration = objConfig
'########## 메일 설정 끝

       objMessage.To = to_email               ' 받는사람
       objMessage.From = from_email               ' 보내는사람
       objMessage.bcc = " "               '참조 메일

       objMessage.Subject = subject       ' 제목
       objMessage.HTMLBody = content              ' 내용

       objMessage.BodyPart.Charset="ks_c_5601-1987"              ' 내용 한글
       objMessage.HTMLBodyPart.Charset="ks_c_5601-1987"
       objMessage.fields.update
                if to_email <> "" then
         objMessage.Send       ' 실제로 보낸는 메소드
       end if

       set objMessage = nothing
       set objConfig = nothing
       set Flds = nothing
 
'유의점
'서버 2008이고요 smtp가 설치되고요. mailroot에 모든 퍼미션을 주어야합니다.
'어째튼, 소스를 공개하여 주신 분(태요사이트의 "