Как переместить письмо между папками с помощью RDCOMCLIENT - PullRequest
Новая
       57

Как переместить письмо между папками с помощью RDCOMCLIENT

0 голосов
/ 24 февраля 2020

Я хотел бы автоматизировать перемещение электронных писем из одной папки (FolderA) в другую папку (FolderB) через R. с помощью RDCOMCLIENT.

Я написал простое для l oop, которое выглядит так: this: 

OutApp <- COMCreate("Outlook.Application")
outlookNameSpace <-  OutApp$GetNameSpace("MAPI")

folderName <-  "FolderA"
destFolder<-"FolderB"


Inbox <- outlookNameSpace$GetDefaultFolder(6) 
FolderA <-  Inbox$folders(folderName) 
FolderB<-Inbox$folders(destFolder)

emails <- FolderA$Items 

i<-1

while(as.numeric(FolderA$Items()$Count())!=0) {
  emails(i)$Move(FolderB)
  i<-i+1

}

Этот код не работает гладко, и мне нужно повторно запустить его, чтобы убедиться, что все электронные письма перенесены. Сообщение об ошибке, которое я получаю каждый раз при остановке l oop: 

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

Где я ошибаюсь с кодом?

...