☰

自動儲存符合特定規則的郵件附件

tag-icon • tag-icon email microsoft-outlook email-filter
自動儲存符合特定規則的郵件附件

每天早上我都會收到一封來自某人的電子郵件，其中包含一個電子表格附件。我已經成功建立了一個 Outlook 規則來捕獲這些電子郵件。現在，是否可以將每個附件的附件自動儲存到本機資料夾中，檔案名稱為 YYYY-MM-DD.xls？

郵件中的附件具有隨機產生的檔案名，因此需要以郵件發送的日期來選擇檔案名稱。注意：這是在我的筆記型電腦上，因此電子郵件有可能是在我收到電子郵件的那天以外的日期發送的（例如當它關閉一天時），因此使用“今天的日期”是這不是一個可行的選擇。

編輯： 將 Windows 7 與 Outlook 2013 結合使用

答案1

為了做你想做的事，你需要將一些 VBA 和規則混合在一起。不確定您使用的是哪個版本的 Outlook，因此此處不做任何保證。這是在 Outlook 2010 上測試的。

本文將幫助您進行設定 -在 Outlook 中自動儲存附件的規則。

下面的程式碼是專門針對您儲存名稱格式為yyyy-mm-dd.

Public Sub SaveToDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim dateFormat

dateFormat = Format(Now, "yyyy-mm-dd")

'Change this path to the your folder location
saveFolder = "c:\temp\"

objAtt.SaveAsFile saveFolder & "\" & dateFormat & ".xls"

Set objAtt = Nothing

End Sub

一旦您設定此規則來運行此腳本，它將在每次收到此人的任何附件時保存該附件（並為其提供擴展名.xls）。如果您想更改它，則必須修改規則或將其關閉。

相關內容