r - 使用 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(.))