使用RDCOMClient和Outlook通过电子邮件发送多个附件

Question

我有一个R脚本,我希望在完成后使用Microsoft Outlook自动发送电子邮件.我正在使用"RDCOMClient"软件包,我想在电子邮件中添加多个附件.

这是我正在尝试使用的代码:

library(RDCOMClient)

OutApp <- COMCreate("Outlook.Application")

outMail = OutApp$CreateItem(0)

outMail[["To"]] = paste("recipient@account.com","another@gmail.com", sep=";", collapse=NULL)
outMail[["subject"]] = "some subject"
outMail[["body"]] = "some body"
outMail[["attachments"]]$Add("C:/Path/To/The/Attachment/File.ext")

outMail$Send()

我尝试使用粘贴作为附件,如"收件人"选项,但我99%肯定这是打破附件的原因,因为它只适用于一个.它非常适合添加多个收件人.有谁知道如何使用此包添加多个附件？

Answer 1

只需添加另一个附件行:

outMail[["attachments"]]$Add("C:/Path/To/The/Attachment/File.ext")
outMail[["attachments"]]$Add("C:/Path/To/The/Attachment/File2.ext")

或者map(循环)在附件对象上:

attachments <- c("C:/Path/To/The/Attachment/File.ext",
                 "C:/Path/To/The/Attachment/File2.ext")

purrr::map(attachments, ~ outMail[["attachments"]]$Add(.))