使用下面的代码将Microsoft Outlook中的.csv文件拉入R中以进行常规数据处理,并不断出现以下错误(特别是在运行结果行之后):
<checkErrorInfo> 80020009
No support for InterfaceSupportsErrorInfo
checkErrorInfo -2147352567
Error: Exception occurred.
Stack Overflow中的类似帖子建议添加sys.sleep()
来解决此问题,从而使系统有足够的时间搜索电子邮件主题。在将sys.sleep()
添加到不同的时间范围(范围从5至50)之后,我仍然遇到此错误。有什么建议或建议吗?
#Load in dataset from e-mail
outlook_app <-COMCreate("Outlook.Application")
search <- outlook_app$AdvancedSearch(
"Inbox",
"urn:schemas:httpsmail:subject = 'Outcome Information to Date'"
)
Sys.sleep(5)
results <- search$Results()
Sys.sleep(5)
for (i in 1:results$Count()) {
if(as.Date("1899-12-30")+floor(results$Item(i)$RecievedTime())
== as.Date(strptime(Sys.time(),format="%Y-%m-%d"))) {
email <- results$Item(i)
}
}
attachment_file<-tempfile()
email$Attachments(1)$SaveAsFile(attachment_file)
#Save outcome data in a dataframe
outcomedata<-read.csv(attachment_file)