Question

我在R中运行日常任务，从我的Outlook检索电子邮件（附有csv文件），对csv文件执行一些分析，并将结果数据框写入我公司的本地驱动器。有些早晨我发现文件尚未发送，根据日志原因是以下错误：

<checkErrorInfo> 80020009 
No support for InterfaceSupportsErrorInfo
checkErrorInfo -2147352567
Error: Exception occurred.
Execution halted

我无法找到发生这种情况的日子以及它没有发生的日子。一旦我去手动触发任务，它通常运行正常。

我在其他问题中看到过这个错误，但这些错误与通过Outlook发送附件有关，我没有这样做。下面是我访问outlook和检索数据的代码：

library(RDCOMClient)    

outlook_app <- COMCreate("Outlook.Application")

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

)
Sys.sleep(5)

results <- search$Results()

for (i in 1:results$Count()) {
  if (as.Date("1899-12-30") + floor(results$Item(i)$ReceivedTime()) 
      == as.Date(strptime(Sys.time(),format = "%Y-%m-%d"))) {
    email <- results$Item(i)
  }
}

attachment_file <- tempfile()
email$Attachments(1)$SaveAsFile(attachment_file)
data <- read.csv(attachment_file,sep=",",fileEncoding="UCS-2LE")

RDCOMClient错误 - 不支持InterfaceSupportsErrorInfo

0 个答案: