17

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

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 中的错误：$ 运算符对原子向量无效


尝试 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 中的错误：$ 运算符对原子向量无效
4

1 回答 1

2

好吧 - 这就是我尝试过的：

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 理解。

于 2015-11-04T11:52:33.633 回答