Em teoria, o seguinte deve funcionar (creditos: D A James, 2003). Necessario instalar o RDCOMClient ( http://www.omegahat.org/RDCOMClient ). Como nao uso Windows, nao posso testar.. Quem quiser testar, sinta-se livre para corrigir o codigo e postar os resultados. :)

b
sendEmail <- function(ema, name, subject, msgBody, deliverNow = TRUE){
   require(RDCOMClient)

   ema <- paste("SMPT:", ema, sep="")   ## prepend protocol to address

   ## create an e-mail session 
   session <- COMCreate("Mapi.Session") 
   session$Logon()

   ## add a message to the outbox collection of messages
   outbox <- session[["Outbox"]]
   msg <- outbox[["Messages"]]$Add(subject, msgBody)

   ## add recipient's name  (TODO: addMultiple() or loop, if many recipients)
   msg[["Recipients"]]$Add(name, ema) 
   msg$Send()
   if(deliverNow)
      msg$DeliverNow()
   session$Logoff()   ## wrap up
}

sendEmail(ema="destinatario@algum.email", 
          name="Nome Destinatario",
          subject="Titulo da msg"
          msgBody="Corpo msg")