我正在尝试仅从我的 Outlook 收件箱中的特定文件夹中检索“今天”收到的电子邮件。我怎么能做到这一点?下面的代码允许我从收件箱中提取所有电子邮件,但我只对今天收到的电子邮件感兴趣。我会在我的代码中添加什么?
folderName <- "Folder2"
## create outlook object
OutApp <- COMCreate("Outlook.Application")
outlookNameSpace <- OutApp$GetNameSpace("MAPI")
folder <- outlookNameSpace$GetDefaultFolder(6)
fld <- folder$folders(folderName)
cnt <- fld$Items()$Count()
emails <- fld$items
resp <- data.frame(sno = 1:cnt,Text = "",stringsAsFactors=FALSE)
for(i in seq(cnt)){
d <- as.data.frame(emails(i)$Body(), stringsAsFactors=FALSE)
resp$Text[i] = d[1]
resp$Sender[i] = emails(i)[['SenderName']]
resp$To[i] = emails(i)[['To']]
resp$sub[i] = emails(i)[['subject']]
}