Question

我希望能够使用gmailR软件包通过电子邮件内联（而不是附件）发送R生成的HTML报告。我甚至无法使用gmailr发送基本HTML电子邮件。我尝试了以下尝试失败并需要一些帮助：

library(gmailr)
gmail_auth("oauth.token.json", scope = "compose")

test_email <- mime() %>%
 to("you@gmail.com") %>%
 from("me@gmail.com") %>%
 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("you@gmail.com") %>%
 from("me@gmail.com") %>%
 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("you@gmail.com") %>%
 from("me@gmail.com") %>%
  subject("This is a subject") 
test_email$body <- html_body("I wish <b>this</b> was bold")

结果：mime $ parts中的错误：$ operator对原子向量无效

尝试4

test_email <- mime() %>%
 to("you@gmail.com") %>%
 from("me@gmail.com") %>%
 subject("This is a subject") 
test_email$parts <- c(html_body("I wish <b>this</b> was bold"),text_body("plain"))

结果：mime $ parts中的错误：$ operator对原子向量无效

Answer 1

嗯 - 这就是我的尝试：

library(gmailr)
gmail_auth('mysecret.json', scope = 'compose') 

test_email <- mime() %>%
 to("to@gmail.com") %>%
 from("from@gmail.com") %>%
 subject("This is a subject") %>%
 html_body("<html><body>I wish <b>this</b> was bold</body></html>")
send_message(test_email)

瞧（德语gmail ......）

似乎诀窍就是放入真正的HTML - 包括<html>和<body> - 以使gmail理解。

使用gmailr

1 个答案: