List 13　CDO 3.0によるメールの作成

---

  1： Dim objMsg
  2： 
  3： ' CDO.Messageオブジェクトを取得
  4： Set objMsg = CreateObject("CDO.Message")
  5： 
  6： ' 送信先
  7： objMsg.To = "osawa"
  8： ' 差出人
  9： objMsg.From = "osawa"
 10： ' Subject
 11： objMsg.Subject = "メールタイトル"
 12： ' 本文
 13： objMsg.TextBody = "本文"
 14： 
 15： ' メールの送信
 16： objMsg.Send
 17： Set objMsg = Nothing