Note: The other languages of the website are Google-translated. Back to English
登入  \/ 
x
or
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警告 -如果您的郵件地址在密件抄送列表中,則當您嘗試全部答复時顯示消息; 缺少附件時提醒,還有更多提醒功能...
  • 回复(全部)帶有所有附件 在郵件對話中; 一次回复許多電子郵件; 自動添加問候語 回复時自動將日期和時間添加到主題中...
  • 附件工具:自動分離,全部壓縮,重命名,自動保存所有... 快速報告,計算所選郵件, 刪除重複的郵件和聯繫人...
  • 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警告 -當您嘗試全部答复時顯示消息 如果您的郵件地址在“密件抄送”列表中; 缺少附件時提醒,還有更多提醒功能...
  • 在郵件對話中回复(全部)帶有所有附件; 回复許多電子郵件 片刻之間; 自動添加問候語 回复時將日期添加到主題中...
  • 附件工具:管理所有郵件中的所有附件, 自動分離, 全部壓縮,重命名全部,保存全部...快速報告, 計算選定的郵件...
  • 強大的垃圾郵件 習俗 刪除重複的郵件和聯繫人... 使您能夠在Outlook中做得更聰明,更快和更好。
拍攝kutools前景kutools選項卡1180x121
拍攝kutools前景kutools加標籤1180x121
 
Say something here...
symbols left.
You are guest
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.