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