r - 如何使用 R RDCOMClient 检索 Outlook 收件箱电子邮件？

Question

library(RDCOMClient)
## create outlook object
OutApp <- COMCreate("Outlook.Application")

我想从名为“AUX”的 Outlook 文件夹中检索今天的电子邮件。
解析邮件的标题，如果满足一定条件，我想解析邮件内容中的某些字符串。

我设法从 R 写了一封电子邮件并将其发送出去，但到目前为止无法检索电子邮件。

Answer 1

这是我通过反复试验得到的一些示例代码:

library(RDCOMClient)

folderName = "AUX"

## create outlook object
OutApp <- COMCreate("Outlook.Application")
outlookNameSpace = OutApp$GetNameSpace("MAPI")

folder <- outlookNameSpace$Folders(1)$Folders(folderName)
# Check that we got the right folder
folder$Name(1)

emails <- folder$Items

# Just doing first 10, get total number with emails()$Count()
for (i in 1:10)
{
  subject <- emails(i)$Subject(1)
  # Replace "#78" with the text you are looking for in Email Subject line
  if (grepl("#78", subject)[1]){
    print(emails(i)$Body())
    break
  } 
}

抱歉，但我不知道为什么这些 COM 对象中的一些需要参数(例如 Subject(1))，而其他的不需要(例如 Body())。这在 Outlook 2013 上对我有用，但它也适用于 2007 年以后的所有 Outlook 版本。

要获得有关 Outlook 对象模型的更多信息，我建议您获取 Ken Slovak's Outlook 2007 book (仍然与 Outlook 的更高版本相关)，或者查看我的个人网站， http://www.gregthatcher.com (查看“脚本”部分——我多年来一直在编译这些。)