GmailR-附件不允许显示正文

Gui*_*ard 3 email r gmail-api

我设法成功发送带有附件的R的HTML电子邮件。但是,Gmail不显示文本。

email <-mime() %>%
to("recipient@example.com") %>%
from("sender@example.com") %>%
subject("This is a subject") %>%
html_body("<html><body>I wish <b>to</b> to see this in the body</body></html>")%>%
attach_file("file.csv")

send_message(email)
Run Code Online (Sandbox Code Playgroud)

在此处输入图片说明

屏幕快照显示附件,但不显示文本,如果我检查电子邮件内容,

本来我以为附件可能在视觉上覆盖了文本,但是在检查了收到的电子邮件的html之后,我得出结论不是这样。

Android上的gmail应用上发生同样的问题

谢谢

这是原始邮件(我已将csv加密文件分解为可管理的版本)原始消息

Message ID  <CAK4Nmip7J=zrxtqPCjnmnEOcA@mail.gmail.com>
Created on: 22 November 2016 at 12:43 (Delivered after 0 seconds)
From:   guillaume.lombard@company.com
To: guillaume.lombard@company.com
Subject:    Weekly Gifts report


Download original   Copy to clipboard   
Received: from 704816328917 named unknown by gmailapi.google.com with HTTPREST; Tue, 22 Nov 2016 07:43:10 -0500
MIME-Version: 1.0
Date: Tue, 22 Nov 2016 07:43:10 -0500
To: guillaume.lombard@company.com
From: guillaume.lombard@company.com
Subject: Weekly Gifts report
Content-Type: multipart/mixed; boundary=8ae9c0fed8a3
Content-Disposition: inline
Message-Id: <CAK4Nmgvip7J=zrxtQcqxOcA@mail.gmail.com>

--8ae9c04d036fed8a3
MIME-Version: 1.0
Date: Tue, 22 Nov 2016 12:43:12 GMT
Content-Type: text/csv; name=Gifts CVR.csv
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename=Gifts CVR.csv; modification-date=Tue, 22 Nov 2016 12:43:12 GMT

IiIsImRhdGUiLCJwYWdlUGF0aCIsIlNlc3Npb25zIiwiU0tVIiwiaXRlbVF1YW50aXR5IiwiaXRl
#
#
#
YS1naWZ0LXNldC10dWJlL253c2FiZ3MvIiwzLCJOV1NBQkdTIixOQSxOQQo=
--8ae9c0446fed8a3--
Run Code Online (Sandbox Code Playgroud)

小智 5

我遇到了与附件完全相同的问题,附件隐藏了电子邮件的html正文,经过将近一天的搜索,我找到了解决方案。

事实证明,这是gmailr程序包的一个已知错误,原因是MIME消息的边界未正确放置。

解决方法是在指定html_body以再次“添加” html正文之后添加attach_part。我不知道为什么会这样,但确实可以:

# Store html body as a variable
body <- "<html><body>I wish <b>to</b> to see this in the body</body> .   </html>"

email <-mime() %>%
to("recipient@example.com") %>%
from("sender@example.com") %>%
subject("This is a subject") %>%
html_body(body)%>%
attach_part(body) %>%
attach_file("file.csv")
Run Code Online (Sandbox Code Playgroud)

出于某种原因,添加attach_part()解决了边界问题,或者至少对我来说解决了。您可以在程序包作者的Git帐户上监视此问题:https : //github.com/jimhester/gmailr/issues

尽管他在6个月内没有做出任何新承诺,所以不太可能很快解决。同时,上述解决方法将为您服务!