library(mailR) 

sender <- "***@126.com"

recipients <- c("***@qq.com", 

                "***@qq.com",

                "***@126.com", 

                "***@qq.com")

test <- send.mail(

  from = sender,

  to = recipients,

  subject = "test",

  body = "test for learing of mailR",

  smtp = list(

    host.name = "smtp.126.com",

    port = 25,

    user.name = "***@126.com",

    passwd = "***",

    ssl = TRUE

  ),

  authenticate = TRUE,

  send = TRUE

)