Как получить электронную почту по дате с помощью RDCOMClient - PullRequest
Новая
       45

Как получить электронную почту по дате с помощью RDCOMClient

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

Я пытаюсь получить только электронные письма, полученные "сегодня", из определенной папки в моем почтовом ящике 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']]
}

1 Ответ

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

Используйте Items.Find/FindNext или Items.Restrict с запросом типа [ReceivedTime] >= '02/20/2020 00:00am'

...