标签: gmailr

我希望能够使用gmailR包通过内联电子邮件(而不是附件)发送R生成的HTML报告.我甚至无法使用发送基本的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)

Run Code Online (Sandbox Code Playgroud) 结果:消息成功发送,但正文是纯文本 - 而不是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

Run Code Online (Sandbox Code Playgroud) 结果: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")

Run Code Online (Sandbox Code Playgroud) 结果:mime $ parts中的错误:$ operator对原子向量无效

尝试4

test_email …

Run Code Online (Sandbox Code Playgroud)

在 R 脚本中，当我尝试使用以下代码发送电子邮件时。它要求 gmailr 包请求访问您的 Google 帐户。选择一个预先授权的帐户或输入“0”以获取新令牌。按 Esc/Ctrl + C 中止。

1：email1@gmail.com

如果没有在控制台中手动输入 1，我的 R 脚本如何自动选择我的预授权帐户并相应地发送电子邮件？

library(gmailr)
gm_auth_configure(path="C:/Users/Google Drive/email.json")

my_email_message <- gm_mime() %>%
  gm_to("email1@gmail.com") %>%
  gm_from("email1@gmail.com") %>%
  gm_subject("My test message") 

gm_send_message(my_email_message)

Run Code Online (Sandbox Code Playgroud)