使用R从outlook中的邮件下载多个附件

如何使用R从outlook下载多个附件（都是CSV）

我的代码正在阅读第一个附件。我无法遍历邮件中的所有附件

使用RDCOMClient作为库

library(RDCOMClient)

outlook_app <- COMCreate("Outlook.Application")


search <- outlook_app$AdvancedSearch(
  "Inbox",
  "urn:schemas:httpmail:subject = 'test'"
)

Sys.sleep(5)
results <- search$Results()

Sys.sleep(10)

results$Item(1)$ReceivedTime() # Received time of first search result

as.Date("1899-12-30") + floor(results$Item(1)$ReceivedTime()) # Received date

for (i in 1:results$Count()) {
  print(i)
  if (as.Date("1899-12-30") + floor(results$Item(i)$ReceivedTime())  == as.Date("2019-04-03")) {
      email <- results$Item(i)
  }
}

attachment_file <- tempfile()

email$Attachments(1)$SaveAsFile(attachment_file)


data <- read.csv(attachment_file)

库（RDCOMClient）
outlook\u应用程序我甚至不能正确理解语法，但这不是指第一项吗？循环中没有保存…实际上mail有4个附件，但results$Count（）只给出1，这就是为什么如果我将1更改为2,3或4@JamesZ，email$attachments（1）$SaveAsFile不起作用的原因