Cookies幫助我們提供服務。 使用我們的服務即表示您同意我們使用cookies。
提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何在Outlook中僅保存特定(excel)附件?

Outlook提供了“保存所有附件”功能,您可以將電子郵件中的所有附件快速保存到特定文件夾中。 但是,如果您只想在電子郵件中保存特定類型的附件,例如Excel附件,Word文檔等,您可以做些什麼來實現它? 這裡我們提供一個VBA方法來解決問題。

僅在Outlook中保存特定附件


輕鬆將多個選定電子郵件中的所有附件保存到文件夾中:

隨著 分離所有附件 實用程序 Kutools for Excel,您可以輕鬆地將多個選定電子郵件中的所有附件保存到Outlook中的指定文件夾中,如下面的截圖所示。

Kutools for Outlook:比40更方便的Outlook加載項,可以在45天免費試用。 下載並免費試用現在!

Kutools for Outlook: 100 +新的高級工具 為Outlook。
Office Tab: 在Office中啟用選項卡式編輯和瀏覽,就像Chrome,Firefox,IE 8 / 9 / 10一樣。
經典菜單: 帶回舊菜單和工具欄 到Office 2007,2010,2013,2016和2019。

僅在Outlook中保存特定附件

以下VBA代碼可以幫助僅保存電子郵件中的特定附件或特定文件夾的多個電子郵件。 請做如下。

1。 啟動Outlook,在郵件列表中,選擇要保存特定附件的電子郵件或多封電​​子郵件。

2。 按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。 在打開的窗口中,單擊 插入 > 模塊,然後將以下VBA代碼複製到“模塊”窗口中。

VBA代碼:僅保存電子郵件中的特定附件或將多封電子郵件保存到文件夾

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20181130
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3。 點擊 工具 > 參考參考文獻 - 項目 對話框,檢查 Microsoft腳本運行時 框並單擊 OK 按鈕。

4。 按 F5 運行代碼的關鍵。 在彈出 瀏覽文件夾 在對話框中,選擇一個文件夾以保存附件。

5。 然後,單擊 OK, 在下面的 Kutools for Outlook 在對話框中,輸入要保存到文本框中的附件的文件擴展名,然後單擊 OK.

然後只保存指定的附件。

筆記:

1。 如果要保存不同類型的附件,請在文本框中輸入文件擴展名,並用逗號分隔。

2。 保存後,郵件正文中將顯示附件保存路徑。 您可以通過直接單擊超鏈接來打開附件。


相關文章:



Kutools for Outlook

超過100高級功能的Outlook 2010,2013,2016,2019和365

屏幕截圖kutools for outlook tiny for banner 201812

更多功能 | 免費下載 | 只有$ 39.00數百個函數

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.