r - 如何使用 RDCOMCLIENT 在文件夹之间移动电子邮件

Question

我想通过 R 使用 RDCOMCLIENT 自动将电子邮件从一个文件夹 (FolderA) 移动到另一个文件夹 (FolderB)。

我编写了一个简单的 for 循环，如下所示：

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

}

此代码运行不顺畅，我必须重新运行它以确保所有电子邮件都已移过。每次while循环停止时我收到的错误消息是：

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

我的代码哪里出错了？

Answer 1

我试图使用您的代码，似乎只要指定的名称“FolderA”不存在，就会发生此错误。我想从收件箱移到其他文件夹并意识到收件箱无法识别。将收件箱更改为其他子文件夹实际上使您的代码工作。