請問怎麼下載outlook收到的所有郵件的附件？

01-13

收到不少（大約1000封）需要存紙質的單據掃描，想要全部保存

打開Outlook郵箱， alt+f11 呼出vba編輯界面。
insert一個module
輸入代碼

Sub Savetheattachment() Dim olApp As New Outlook.Application Dim nmsName As Outlook.NameSpace Dim vItem As Object Set nmsName = olApp.GetNamespace("MAPI") Set myfolder = nmsName.GetDefaultFolder(olFolderInbox) Set fldFolder = myfolder.Folders("你需要下載對帳單的郵箱的文件夾名稱")


     For Each vItem In fldFolder.Items

        For Each att In vItem.Attachments
         att.SaveAsFile "你需要下載對帳單的本地盤或者公共盤地址"  att.FileName

        Next

    Next

Set fldFolder = Nothing Set nmsName = Nothing End Sub

按F5運行。

或者你也可以設計成一個腳本，把sub 這行改成這樣

Public Sub Savetheattachment(Item As Outlook.MailItem)

然後Outlook 設計一下rule，遇到有附件的郵件就運行腳本自動下載下來。

如下圖

一

outlookattachview-x64，一個小軟體，可以篩選所有附件，工作中用到N多銀行的結算單，都是用它來批量下載的

寫過類似的複雜代碼，瞬間下載！