使用R從Outlook電子郵件下載附件

Question

每週日我收到一封電子郵件，附帶一個壓縮文件夾。電子郵件的主題從不改變。我想找到具有指定主題行的最新電子郵件並下載附件。我是新的R用戶，到目前爲止，我只找到一種方法打印基於主題的電子郵件正文（從其他問題之一詢問在stackoverflow How to retrieve Outlook inbox emails using R RDCOMClient?）。 理想情況下，我想找到具有指定日期收到的指定主題的電子郵件，然後下載附件。請有人指點我正確的方向。任何幫助將不勝感激。謝謝。

Answer 1

你可以搜索你的收件箱，或任何其他文件夾，使用方法填寫AdvancedSearch：

library(RDCOMClient) 
outlook_app <- COMCreate("Outlook.Application") 
search <- outlook_app$AdvancedSearch(
    "Inbox", 
    "urn:schemas:httpmail:subject = 'Super Important Email'" 
) 

這是一個異步方法，所以R將不會等待搜索到移動之前完成下一步。雖然確實存在一個AdvancedSearchComplete事件來處理這個問題，但我一直無法解決如何使用RDCOMClient完成此操作。作爲一種解決方法，Sys.sleep(5)應該給搜索足夠的時間來完成。

您可以查看這些結果並使用ReceivedTime方法查詢它們的接收時間。在這些時間轉換爲日期，使用1899年12月30日的微軟辦公基地日期：

results <- search$Results() 
results$Item(1)$ReceivedTime() # Received time of first search result 
as.Date("1899-12-30") + floor(results$Item(1)$ReceivedTime()) # Received date 

現在我們可以看看通過對在特定日期收到一封電子郵件，結果，說8月14日，2017年

for (i in 1:results$Count()) { 
    if (as.Date("1899-12-30") + floor(results$Item(i)$ReceivedTime()) 
      == as.Date("2017-08-14")) { 
     email <- results$Item(i) 
    } 
} 

我們可以查看電子郵件的附件，類似於我們通過搜索結果查看的內容。第一個附件將是email$Attachments(1)（請注意電子郵件簽名中的圖片;這些圖片也會顯示出來！）。如果您對某個附件感興趣，可以使用FileName方法找到它。一旦你找到了你想要的附件，你可以將它保存到一個文件並開始使用它，就好像它是任何其他文件一樣。

attachment_file <- tempfile() 
email$Attachments(1)$SaveAsFile(attachment_file) 
data <- read.csv(attachment_file) 

我在這裏使用的臨時文件路徑，但你可以在附件當然保存到永久位置。