#Функция отправки почтового сообщения (СМС, если использовать шлюз оператора)

gmailsend.R

#Функция отправки почтового сообщения (СМС, если использовать шлюз оператора)
#username — имя пользователя почты на gmail.com
#password — пароль от почты на gmail.com
#emailto — e-mail получателя (например, [email protected] или используя email2sms шлюз оператора 79ХХХХХХХХХ@sms.ycc.ru)
#sub — тема сообщения
#msg — текст сообщения

gmail.send <- function(username, password, emailto, sub, msg)
{
  frommailuser <- paste(username,"@gmail.com", sep='')
  com1 <- paste("sendEmail -f", frommailuser, "-t", emailto, "-o message-charset=utf-8 -u")
  com2 <- "-m "
  com3 <- paste("-o message-format=text -s smtp.gmail.com -o tls=yes -xu", username, "-xp", password)
  system(paste(com1, sub, com2, msg, com3))
}

#Пример использования
sub <- "Пробное письмо"
msg <- "Тестовое сообщение"
# Кому отправляем информацию
telnumbers <- c("7950ХХХХХХХ@sms.ycc.ru",
                "7952ХХХХХХХ@sms.ycc.ru",
                "7912ХХХХХХХ@sms.ural.mts.ru",
                "ХХХХХХХ@mail.ru",
                "ХХХХХХХ@mail.ru",
                "ХХХХХХХ@mail.ru")
#Отправка информации адресатам
for (i in 1:length(telnumbers))
{
  gmail.send("yurij.tukachev", "password", telnumbers[i], sub, msg)
}