Created
November 23, 2013 11:57
-
-
Save tukachev/7613802 to your computer and use it in GitHub Desktop.
#Функция отправки почтового сообщения (СМС, если использовать шлюз оператора)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#Функция отправки почтового сообщения (СМС, если использовать шлюз оператора) | |
#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