mail_through_mailR

library(mailR)
sender <- "[email protected]"
recipient <- "[email protected]"
  send.mail(from = sender,
            to = recipient,
            subject = "Subject",
            body = "Hello World!",
            smtp = list(host.name = "smtp.gmail.com", port = 465, 
                        user.name = "[email protected]",            
                        passwd = pwd, 
                        ssl = TRUE),
            authenticate = TRUE,
            send = TRUE)
}