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应用程序 窗口。 在打开的窗口中,单击 插页 > 模块,然后将下面的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.