Я уже писал об отправке 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)
}