Question

我对R编程比较陌生，并且已经开展了一个小方案项目，向R世界介绍自己。我想做的是帮助我的一位同事自动化他每周做的手动电子邮件流程。 / p>

该电子邮件包含以excel创建的图表，DOW指数价格，我们公司的股票价格以及他每周手动更新的一些评论。

我已经想出了如何使用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()

Answer 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()

是否可以通过RDCOM发送可视化？

1 个答案: