Я пытаюсь извлечь текст нескольких электронных писем с указанием темы письма, содержащих ключевое слово «Разрешение», используя RDCOMClient в R.
Это код, который я написал.
OutApp <- COMCreate("Outlook.Application")
OutlookNameSpace <- OutApp$GetNameSpace("MAPI")
folderName <- "Inbox"
search <- OutApp$AdvancedSearch(folderName, "urn:schemas:httpmail:subject like '%Permission%'")
results <- search$Results()
body <- c()
for (i in 1:results$Count()){
body <- c(body, results$Item(i)$Body())
}
Когда я запускаю коды построчно, я могу получить тело вектора символов без ошибок.
Однако, когда я запускаю весь фрагмент вместе, возникает ошибка.
80020009
Нет поддержки InterfaceSupportsErrorInfo
CheckErrorInfo -2147352567
Ошибка: возникло исключение.
У меня былопопытался добавить Sys.sleep (1), как предложено в Запуск макросов Excel из R через RDCOMClient, ошибка -2147418111 , как снаружи, так и внутри цикла for, но я все еще получаю ту же ошибку.
В конечном счете, я хотел бы запустить этот скрипт автоматически, используя source ().Может ли кто-нибудь помочь мне понять, почему возникла эта ошибка и как ее устранить?
Кроме того, если я хочу получить доступ к общему входящему почтовому ящику вместо моего личного почтового ящика, как я должен изменить имя папки такчто поиск будет выполнен в правильном почтовом ящике?
Спасибо!