Skip to content

Instantly share code, notes, and snippets.

@tukachev
Created November 23, 2013 11:57
Show Gist options
  • Save tukachev/7613802 to your computer and use it in GitHub Desktop.
Save tukachev/7613802 to your computer and use it in GitHub Desktop.
#Функция отправки почтового сообщения (СМС, если использовать шлюз оператора)
#Функция отправки почтового сообщения (СМС, если использовать шлюз оператора)
#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)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment