问题描述
邮件正文包含文本内容以及类似于下图所示的多个链接。我需要将链接(仅包含关键字“实例”的链接)保存为数据集以供分析。
示例邮件
主题:文本数据分析
身体:
嗨,团队,
请从以下链接中找到最新更新,
https://s3.data.com/abc-data-inventory/ABCCloud/2019_09_11/ABCCloud_US_Database_2019_09_11.csv
https://s3.data.com/abc-data-inventory/ABCCloud/2019_09_11/ABCCloud_US_Instance_List_2019_09_11.csv)
我已尝试使用以下代码访问邮件正文,但无法将链接保存为数据集。
OutApp <- COMCreate("outlook.application")
OutlookNameSpace <- OutApp$GetNameSpace("MAPI")
folderName <- "InBox"
search <- OutApp$AdvancedSearch(folderName,"urn:schemas:httpmail:subject like 'Text Data Analysis'")
results <- search$Results()
body <- c()
Sys.sleep(10)
for (i in 1:results$Count()){
body <- c(body,results$Item(i)$Body())
}
body=as.data.frame(body)
Sys.sleep(10)
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)