提示:其他語言是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天免費試用。 下載並免費試用現在!

Office選項卡 - 在Office中啟用選項卡式編輯和瀏覽,使工作更輕鬆......
Kutools for Outlook - 為Microsoft Outlook帶來100強大的高級功能
  • 自動CC / BCC 發送電子郵件時的規則; 自動轉發 規則多個電子郵件; 自動回复 沒有交換服務器,以及更多自動功能......
  • BCC警告 - 如果您的郵件地址在BCC列表中,當您嘗試全部回复時顯示消息; 缺少附件時提醒,以及更多提醒功能......
  • 全部附件回复(全部) 在郵件對話中; 立即回复許多電子郵件; 自動添加問候語 回复時; 自動將日期和時間添加到主題中...
  • 附件工具:自動分離,全部壓縮,全部重命名,自動全部保存... 快速報告,計算選定的郵件, 刪除重複的郵件和聯繫人...
  • 超過100高級功能將 解決你的大多數問題 在Outlook 2010-2019和365中。 全功能60天免費試用。

僅在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 - 為Outlook帶來100高級功能,讓工作更輕鬆!

  • 自動CC / BCC 發送電子郵件時的規則; 自動轉發 多個電子郵件按自定義; 自動回复 沒有交換服務器,以及更多自動功能......
  • BCC警告 - 當您嘗試回复所有內容時顯示消息 如果您的郵件地址在BCC列表中; 缺少附件時提醒,以及更多提醒功能......
  • 回复(全部)使用郵件會話中的所有附件; 回复很多電子郵件 很快; 自動添加問候語 回复時; 將日期添加到主題...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,全部保存...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 按慣例; 刪除重複郵件和聯繫人... 使您能夠在Outlook中更智能,更快速,更好地完成工作。
拍攝kutools outlook kutools選項卡1180x121
拍攝kutools outlook kutools加標籤1180x121
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.