使用R下载并保存Outlook邮件附件

Question

鉴于我有一个.msg文件保存到我的C：驱动器上的目录，想知道是否有人在R中开发了一个解决方案来下载并保存此.msg文件中的Outlook邮件附件？我发现微软在https://msdn.microsoft.com/en-us/library/ms268754.aspx

发布的C＃中有一个解决方案

感谢您的帮助！

Answer 1

This可以解决问题：

# devtools::install_github("hrbrmstr/msgxtractr")
library(msgxtractr)
fn <- "~/mydir/mymsg.msg"
msg <- read_msg(fn)
invisible(lapply(msg$attachments, function(a) 
  writeBin(a$content, file.path(dirname(fn), a$filename)) 
))

它将邮件内容放在列表中（请参阅str(msg)），并将附件保存在其原始文件名下。

PS：当你提到附件时，我认为没有必要下载任何内容。 （这与消息附带的附件的性质相反，例如只是指向PDF的链接。）