r - 奇怪的InterfaceSupportsErrorInfo错误-checkErrorInfo -2147352567错误: Exception occurred

Question

我目前正在构建一些代码来搜索我的电子邮件中的特定主题，然后搜索电子邮件正文中的某些特定术语，然后从中取出逗号分隔的数据。然而，我现在遇到了一个以前从未见过的问题，而且最近才开始出现。

每当代码到达:

inbox <- outlookNameSpace$Folders(6)$Folders("Inbox")

我收到以下错误:

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

现在我看到人们在周围遇到类似的错误，但他们似乎正在处理发送电子邮件而不是搜索特定电子邮件。

我想知道是否有人对如何解决这个问题有任何建议？

完整代码:

library(RDCOMClient)

Fruit_1 <- "Apples"
Fruit_2 <- "Pears"
##Create vector to store searchables
searchf <- c(Fruit_1, Fruit_2)
## create object for outlook
OutApp <- COMCreate("Outlook.Application")
outlookNameSpace = OutApp$GetNameSpace("MAPI")

search <- OutApp$AdvancedSearch("Inbox", "urn:schemas:httpmail:subject = 'FRUIT QUANTITIES'")
inbox <- outlookNameSpace$Folders(6)$Folders("Inbox")

vec <- c()

get_vals <- function(report,searches) {
  data <- read.table(text=report,sep=",")
  colnames(data) <- c('key','value')
  
  date <- data[grepl("date",data$key,ignore.case=T),"value"]
  
  lst <- split(data$value,data$key)
  
  c(list(date=date),lst[searches])
}

for (x in emails)
{
  subject <- emails(i)$Subject(1)
  if (grepl(search, subject)[1])
  {
    text <- emails(i)$Body()
    print(text)
    break
  }
}

Answer 1

事实证明失败的原因是 R 运行了太多代码行。因此，在“search”变量之后添加 Sys.sleep(5) 解决了问题。

所以我的代码如下:

search <- OutApp$AdvancedSearch("Inbox", "urn:schemas:httpmail:subject = 'FRUIT QUANTITIES'")
Sys.sleep(5)