Я уже писал об отправке email или sms из R, но теперь решил «завернуть» часто используемый код в функцию. Для работы функции небходимо предварительно установить утилиту sendEmail (см. как это сделать)

#Функция отправки почтового сообщения (СМС, если использовать шлюз оператора)
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))
}

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

Пример использования:

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)
}