如何使用Microsoft365R或其他R包按日期与主题提取邮件附件？

一、基于Microsoft365R的实现方案 #

1. 初始化邮箱连接 #

首先加载包并连接到你的Microsoft 365邮箱：

library(Microsoft365R)
# 企业版邮箱用这个，个人版替换为get_personal_outlook()
outlook <- get_business_outlook()

2. 筛选目标邮件 #

Microsoft365R没有直接的筛选参数，但可以先拉取邮件列表，再用R原生逻辑过滤出主题含"SW KPI"且发送日期为当日的邮件：

# 获取当日日期（每月1日运行时就是当月1日）
target_date <- Sys.Date()

# 拉取收件箱最近100封邮件（可根据需求调整数量）
inbox <- outlook$get_inbox()
email_list <- inbox$list_emails(n = 100)

# 执行筛选
filtered_emails <- email_list[
  grepl("SW KPI", email_list$subject, ignore.case = TRUE) & 
    as.Date(email_list$sent_date) == target_date,
]

3. 下载附件或直接导入R #

遍历筛选后的邮件，处理附件：

# 设置附件保存路径，不存在则创建
save_dir <- "~/SW_KPI_Data"
dir.create(save_dir, showWarnings = FALSE)

# 批量处理每封邮件的附件
for (email in filtered_emails) {
  attachments <- email$list_attachments()
  for (att in attachments) {
    # 下载到指定文件夹
    att$download(save_dir)
    
    # 示例：如果是CSV文件，直接导入R做后续处理
    if (tolower(tools::file_ext(att$name)) == "csv") {
      kpi_data <- read.csv(file.path(save_dir, att$name))
      # 这里写你的数据处理逻辑，比如合并、清洗等
    }
  }
}

4. 自动运行设置 #

每月1日自动执行脚本的话，Windows可以用任务计划程序，Linux/macOS用cron，设置定时触发R脚本即可。

二、替代R包推荐 #

• RDCOMClient：仅适用于Windows环境，通过COM接口直接操控本地Outlook，支持Outlook原生筛选语法，筛选效率更高：

  library(RDCOMClient)
  outlook_app <- COMCreate("Outlook.Application")
  mapi_namespace <- outlook_app$GetNamespace("MAPI")
  inbox <- mapi_namespace$GetDefaultFolder(6)  # 6对应Outlook收件箱
  
  # 用Outlook原生筛选规则：主题含SW KPI，且发送日期为当日
  filter_rule <- sprintf(
    "Subject Like '%%SW KPI%%' AND SentOn >= '%s' AND SentOn < '%s'",
    format(target_date, "%m/%d/%Y"),
    format(target_date + 1, "%m/%d/%Y")
  )
  filtered_items <- inbox$Items()$Restrict(filter_rule)
  

• emayili：轻量级邮件处理包，支持IMAP协议，可连接Microsoft 365邮箱（需开启IMAP），也能实现灵活筛选。

内容的提问来源于stack exchange，提问作者Louis Johnston