[R-br] RES: MANDANDO E-MAIL PELO R...

[Benilton Carvalho]

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 em algum.email", *          name="Nome Destinatario",
          subject="Titulo da msg"
          msgBody="Corpo msg")
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110824/cdbf9311/attachment.html>