library(mailR)
library(tcltk)
sendingEmail<-function(se){
  email <- send.mail(from = "<email@gmail.com>",
                     to = c("<email1@gmail.com>", "<email2@gmail.com>"),
                     subject = "Subject",
                     body ="Main text",
                     encoding = "utf-8",
                     smtp = list(host.name = "smtp.gmail.com", port = 465, user.name = "email@gmail.com", passwd = "password", ssl = T),
                     authenticate = TRUE,
                     send = TRUE)
  }

  sendingEmail()