3

我对 R 编程相对较新，并且已经进行了一个小项目来向 R 世界介绍自己。我想做的是帮助我的一位同事自动化他每周执行的手动电子邮件流程。

这封电子邮件包含在 Excel 中创建的图表、道琼斯指数价格、我们公司的股票价格，以及他每周手动更新的一些评论。

我已经想出了如何使用 RDCOMClient 包发送电子邮件，但我想做的是将他也提取的图表和股票价格集成到电子邮件的正文中（如果可能的话，以 HTML 格式）。我希望将所有这些自动化，所以他所要做的就是更新评论并运行脚本。

这里的关键限制因素是目标受众，这将面向那些真正不喜欢打开电子邮件附件的高管。他们想在手机上打开一封电子邮件，获取相关信息，然后继续前进。

这是我的程序到目前为止的样子：

library(RDCOMClient)
OutApp <- COMCreate("Outlook.Application")
outMail = OutApp$CreateItem(0)
outMail[["To"]] = "test@test.com"
outMail[["subject"]] = "R Test"
outMail[["body"]] = "Hello"                   
outMail$Send()
4

1 回答 1

1

当然，首先你保存你的图像。然后使用 HTMLbody 使用 HTML 代码插入图像，如下所示：

library(htmlTable)

png("pictest.png")
plot(iris$Sepal.Length)
dev.off()

StockPrice <- "25.25"

MyHTML <- paste0("<html><p>This is a picture.</p> 
<img src='C:/Users/iwes/Desktop/RWorkingFolder/pictest.png' >
<p> Our StockPrices is: $", StockPrice,
"<p>here is a table:</p>",
htmlTable(head(iris,5)))

library(RDCOMClient)
OutApp <- COMCreate("Outlook.Application")
outMail = OutApp$CreateItem(0)
outMail[["To"]] = "test@test.com"
outMail[["subject"]] = "R Test"
outMail[["HTMLbody"]] =  MyHTML                  
outMail$Send()
于 2017-05-24T15:27:41.863 回答