Я выяснил, как отправить одно электронное письмо через R с вложением и показать тело электронного письма (кажется, это обычная проблема). Однако я хотел бы следовать методу Дженни Брайан по отправке нескольких электронных писем во время так же прикрепил файл.
Отправка одного письма с вложением и сообщением.
msg <- "this is the message of the email"
test_email <- mime() %>%
to("[email protected]") %>%
from("from@gmail") %>%
subject("subject goes here") %>%
body(msg) %>%
attach_file("29697.html", type = "html")
test_email <- attach_part(test_email, msg)
send_message(test_email)
Чтобы имитировать приведенный выше код, но с примером Дженни, у меня есть следующее:
addresses <- read_csv("addresses.csv") #contains a column for 'name' and 'email'
email_sender <- 'First Last <[email protected]>' # your Gmail address
msg <- "this is the message of the email"
edat <- addresses %>%
mutate(
To = sprintf('%s <%s>', name, email),
From = email_sender,
Subject = sprintf('Mark for %s', name),
body = msg,
attach_file = sprintf('%s.html, type = html', name))
edat <- edat %>%
select(To, From, Subject, body, attach_file)
emails <- edat %>%
pmap(mime)
safe_send_message <- safely(send_message)
sent_mail <- emails %>%
map(safe_send_message)
В приведенном выше примере создается список для формирования компонентов файловой структуры mime, которую использует gmailR, однако он не прикрепляет файл, как это делает один пример выше. Я попытался структурировать функцию attach_file аналогичным образом, однако она не помещает ее в элемент списка для пантомимы таким же образом, как вызывает ее отдельно, как в единственном примере выше, где она помещает ее в раздел parts элемента списка. . Заранее спасибо, если кто сталкивался с этим.
