if (FALSE) {
from <- sprintf("", Sys.info()[4])
to <- ""
subject <- "Hello from R"
body <- list("It works!", mime_part(iris))
sendmail(from, to, subject, body,
control=list(smtpServer="ASPMX.L.GOOGLE.COM"))
sendmail(from="from@example.org",
to=c("to1@example.org", "to2@example.org"),
subject="SMTP auth test",
msg=mime_part("This message was send using sendmailR and curl."),
engine = "curl",
engineopts = list(username = "foo", password = "bar"),
control=list(smtpServer="smtp://smtp.gmail.com:587", verbose = TRUE)
)
}
Run the code above in your browser using DataLab