如何使用 R 提取 Outlook 邮件正文的日期标头

编程问答 2022-05-27

问题描述

我已使用以下代码从收件箱文件夹中提取所有电子邮件，但日期列显示为空。首先，我需要找到如何获取与其主题/正文相对应的日期值，然后如果出现同一主题的多个日期，我必须从数据框中过滤最新的电子邮件。

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

fld <- outlookNameSpace$GetDefaultFolder(6)

emails <- fld$items
Cnt=emails()$Count()

df = data.frame(sno = 1:Cnt,Text = "",Date="",stringsAsFactors=FALSE)
for(i in seq(Cnt)){
  d = as.data.frame(emails(i)$Body(),stringsAsFactors=FALSE)
   df$Text[i] = d[1]
  df$Date[i]=emails(i)[['date']]
  df$sub[i] = emails(i)[['subject']]
}

输出（df 数据框）

S.no   Text                                    Date                            Sub
1      <The complete body of the mail>                                        New Joiners Kit
2      < Body of mail>                                                        Request for leave
3      < Body of mail>                                                        New Joiners Kit

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

dataframeoutlookrrrdcomclient