提示:其它语言是由 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.