Joh*_*n F 5 outlook r rdcomclient
我在R中运行一项日常任务,该任务从Outlook中检索电子邮件(附加了csv文件),对csv文件进行一些分析,并将结果数据帧写入公司的本地驱动器。某些早晨,我发现文件尚未交付,并且根据日志,原因是以下错误:
<checkErrorInfo> 80020009
No support for InterfaceSupportsErrorInfo
checkErrorInfo -2147352567
Error: Exception occurred.
Execution halted
Run Code Online (Sandbox Code Playgroud)
我找不到发生这种情况的日子的任何模式。一旦我手动触发任务,它通常运行良好。
我已经在其他问题中看到了此错误,但是这些问题与通过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")
Run Code Online (Sandbox Code Playgroud)