GmailR - 附件不允许显示正文

时间:2016-11-23 10:25:52

标签: r email 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)

enter image description here

屏幕截图显示的是附件,但不是文字,如果我查看电子邮件内容

最初我认为附件可能在视觉上覆盖了文本,但是在检查收到的电子邮件的html之后我得出的结论并非如此。

同样的问题在Android

上的gmail应用程序上存在

谢谢

这是orignal电子邮件(我已将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--

1 个答案:

答案 0 :(得分:2)

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

事实证明,这是由于MIME消息的边界未正确放置而导致的gmailr包的已知错误。

解决方法是在指定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")

由于某种原因,添加attach_part()可以解决边界问题,或者至少它可以解决我的问题。您可以在此处在Package Author的Git帐户上监控此问题:https://github.com/jimhester/gmailr/issues

虽然他在6个多月内没有投入任何新的东西,所以不太可能很快得到解决。与此同时,上述工作应该适合你!