Does R have a command for sending emails?

At the risk of beating this to death ... if you use Outlook mail on Windows,
you can create a simple 'sendmail' vbscript:

' ==== start ===
Dim pOutlook, pMail, fso, f

Set pOutlook = CreateObject("Outlook.Application")
Set pMail = pOutlook.CreateItem(olMailItem)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(WScript.Arguments(2), 1)

With pMail
   .To = WScript.Arguments(0)
   .Subject = WScript.Arguments(1)
   .Body = f.ReadAll()
   .Send
End With

f.Close()
' ==== end ====

And then call this from R:

send.mail <- function(addr, subject, source.file) {
   mail.cmd <-
paste(paste(Sys.getenv("SystemRoot"),"/system32/wscript.exe",sep=""),
      "sendmail.vbs", addr, dQuote(subject), source.file, sep=" ")
      
   system(mail.cmd, intern=F)
}

Note that if sendmail.vbs is not in the current R working directory you have
to provide a full path.
Norm Olsen 

-----Original Message-----
From: r-help-bounces at stat.math.ethz.ch
[mailto:r-help-bounces at stat.math.ethz.ch] On Behalf Of Fernando Saldanha
Sent: Tuesday, May 10, 2005 6:28 AM
To: Submissions to R help
Subject: Re: [R] Does R have a command for sending emails?

I want to thank all who have offered help on this topic. I was able to
create a very simple email function that I have tested to work under Windows
XP Professional and R 2.1.0. It uses Blat version 1.9.4.

send.mail<-function(addr, subject, source.file) {
  mail.cmd <- paste("Blat", source.file, "-subject", dQuote(subject), "-to",
addr, separator = " ", collapse = "")
  
  system(mail.cmd, intern = FALSE)
}

The string source.file must have double backslashes instead of single
backslashes. For example:

C:\\myfolder

One must first install Blat version 1.9.4, available at 

http://www.blat.net/194/.

All that is needed is to unzip the downloaded file (Blat194.zip) and copy
Blat.exe to a folder in the path. The other files inside Blat194.zip can be
discarded.

FS

Fernando Saldanha wrote:

Is there a way to have an R program send an email?

Something like this:

address <- 'abc at d.com'
text <- 'This is the email body'
send.email(address, text)

Thanks.

FS

______________________________________________
R-help at stat.math.ethz.ch mailing list 
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! 
http://www.R-project.org/posting-guide.html

Under Linux/Unix you can use code such as the following.  This handles 
kmail and mail.

     if(mailer=='kmail') {
       tf <- tempfile()
       cat(cmd, file=tf)
       to <- paste('"', paste(to, collapse=','), '"', sep='')
       if(length(cc)) cc <- paste(' -c "', paste(cc,
collapse=','),'"',sep='')
       if(length(bcc)) bcc <- paste(' -b "', paste(bcc,
collapse=','),'"',sep='')
     } else {
       to <- paste(to, collapse=' ')
       if(length(cc))  cc  <- paste(paste(' -c', cc), collapse='')
       if(length(bcc)) bcc <- paste(paste(' -b', bcc),collapse='')
     }
     cmd <- if(mailer=='kmail') paste('kmail -s "', title, '"', cc,
                 bcc, ' --msg ', tf, ' ', to, sep='') else
       paste('echo -e "', cmd, '" | mail -s "',
             title, ' Reports"', cc, bcc, ' ', to, sep='')
     system(cmd)

--
Frank E Harrell Jr   Professor and Chair           School of Medicine
                      Department of Biostatistics   Vanderbilt University

______________________________________________
R-help at stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html