## Not run:
# from <- sprintf("<sendmailR@\\%s>", Sys.info()[4])
# to <- "<olafm@datensplitter.net>"
# subject <- "Hello from R"
# body <- list("It works!", mime_part(iris))
# sendmail(from, to, subject, body,
# control=list(smtpServer="ASPMX.L.GOOGLE.COM"))
# ## End(Not run)
Run the code above in your browser using DataLab