Отправить HTML-сообщение с помощью gmailr
Я хочу иметь возможность использовать пакет gmailR для отправки R-генерируемых HTML-отчетов по электронной почте (не как вложения). Я не могу даже отправить базовое письмо электронной почты с помощью gmailr
. Я попытался сделать следующее безуспешно и нуждаюсь в некоторой помощи:
library(gmailr)
gmail_auth("oauth.token.json", scope = "compose")
test_email <- mime() %>%
to("[email protected]") %>%
from("[email protected]") %>%
subject("This is a subject")
test_email$body <- "I wish <b>this</b> was bold"
send_message(test_email)
РЕЗУЛЬТАТ: сообщение успешно отправляется, но тело - это обычный текст - не HTML
Попытка 2
test_email <- mime() %>%
to("[email protected]") %>%
from("[email protected]") %>%
subject("This is a subject") %>%
html_body("I wish <b>this</b> was bold")
test_email$body
РЕЗУЛЬТАТ: test_email $body - NULL
Попытка 3
test_email <- mime() %>%
to("[email protected]") %>%
from("[email protected]") %>%
subject("This is a subject")
test_email$body <- html_body("I wish <b>this</b> was bold")
РЕЗУЛЬТАТ: Ошибка в mime $parts: оператор $недействителен для атомных векторов
Попытка 4
test_email <- mime() %>%
to("[email protected]") %>%
from("[email protected]") %>%
subject("This is a subject")
test_email$parts <- c(html_body("I wish <b>this</b> was bold"),text_body("plain"))
РЕЗУЛЬТАТ: Ошибка в mime $parts: оператор $недействителен для атомных векторов
Ответы
Ответ 1
Хорошо - это то, что я пробовал:
library(gmailr)
gmail_auth('mysecret.json', scope = 'compose')
test_email <- mime() %>%
to("[email protected]") %>%
from("[email protected]") %>%
subject("This is a subject") %>%
html_body("<html><body>I wish <b>this</b> was bold</body></html>")
send_message(test_email)
И voila (немецкий gmail...) ![введите описание изображения здесь]()
Кажется, что трюк состоял в том, чтобы просто вставить настоящий HTML-код, включая <html>
и <body>
, чтобы понять gmail.