dim objMessage, objConfig,Flds
  set objMessage = createobject("cdo.message")
  set objConfig = createobject("cdo.configuration")

  ' Setting the SMTP Server
  Set Flds = objConfig.Fields
  Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1

'1은로컬,2는원격지
  'Flds.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 '포트
  'Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"'서버 
  Flds.update

  Set objMessage.Configuration = objConfig
  'objMessage.MimeFormatted = false  '다목적인터넷메일확장,

  'false를해야 외국어로 보냈을시 글자가 깨지지 않는다.
  objMessage.fields.update 
  objMessage.To = "받는사람"  
  objMessage.From = "보내는사람"
  objMessage.Subject = "제목"

  'objMessage.TEXTBody = "내용" 'HTML아닌 텍스트내용일때
  objMessage.HTMLBody = "내용"
  'objMessage.BodyPart.Charset="gb2312" ' TEXT 언어설정
  objMessage.HTMLBodyPart.Charset="gb2312" 'HTML 언어설정

  objMessage.Send

  set objMessage = nothing
  set objConfig = nothing