codice:
  Set iMsg = CreateObject("CDO.Message")
  Set iConf = CreateObject("CDO.Configuration")
  Set Flds = iConf.Fields
  With iMsg
  Set .Configuration = iConf
  .To = "indirizzo destinatario"
  .From = "indirizzo mittente"
  .Sender = "indirizzo mittente"
  .Subject = "oggetto email"
  .TextBody = "testo email"
  .Send
  End With
se non sbaglio c'è anche il .cc per la copia conoscenza