跳到主要内容

如何在Outlook中不带附件进行存档?

作者:凯莉 最后修改时间:2018-04-11

通常,Outlook的存档功能将保存所有电子邮件元素,包括电子邮件内容,电子邮件标头,电子邮件附件等。但是,附件可能会使存档的PST文件变大。 在这里,我将介绍两种在Outlook中不带附件的存档解决方案。

Office 选项卡 - 在 Microsoft Office 中启用选项卡式编辑和浏览,让工作变得轻而易举
解锁 Outlook 的 Kutools 免费 版本 立即享受超过 70 项功能,永久无限制访问
使用这些高级功能增强您的 Outlook 2021 - 2010 或 Outlook 365。享受 70 多种强大功能并提升您的电子邮件体验!

由VBA存档,无附件

此方法将引入VBA,从要存档的指定文件夹中删除所有附件,然后可以不包含附件进行存档。 请执行以下操作:

1。 在 邮箱: 视图,选择要存档的文件夹,然后按 其他 + F11 键以打开“ Microsoft Visual Basic应用程序”窗口。

2。 点击 插页 > 模块,然后在VBA下面粘贴到新的模块窗口中。

VBA:从Outlook中的选定邮件文件夹中删除所有附件

Public Sub SaveDeleteAttachments()
Dim xMailItem As Outlook.MailItem 'Object
Dim xAttachments As Outlook.Attachments
Dim i As Long
Dim xFolder As Folder
Dim xFilePath As String
Dim xFldPath As String
Dim xDeletedFilePath As String
On Error Resume Next
xFldPath = CreateObject("WScript.Shell").SpecialFolders(16)
xFldPath = xFldPath & "\MyAttachments"
If Dir(xFldPath, vbDirectory) = "" Then
MkDir xFldPath
End If
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
For Each xMailItem In xFolder.Items
If xMailItem.Class = olMail Then
Set xAttachments = xMailItem.Attachments
While xAttachments.Count > 0
xFilePath = xAttachments.Item(1).FileName
xFilePath = xFldPath & "\" & xFilePath
xAttachments.Item(1).SaveAsFile xFilePath
xAttachments.Item(1).Delete
If xMailItem.BodyFormat <> olFormatHTML Then
xDeletedFilePath = xDeletedFilePath & vbCrLf & "<file://" & xFilePath & ">"
Else
xDeletedFilePath = xDeletedFilePath & "
" & "" & xFilePath & "" End If Wend If xDeletedFilePath <> "" Then If xMailItem.BodyFormat <> olFormatHTML Then xMailItem.Body = "The file(s) were saved to: " & xDeletedFilePath & vbCrLf & xMailItem.Body Else xMailItem.HTMLBody = "

" & _ "The file(s) were saved to: " & xDeletedFilePath & "

" & xMailItem.HTMLBody End If xMailItem.Save xDeletedFilePath = "" End If End If Next Exit Sub: Set xAttachments = Nothing Set xMailItem = Nothing End Sub

3。 按 F5 键或单击 运行 按钮运行代码。 然后,所有附件立即从选定的邮件文件夹中删除。

4。 点击 文件 > 资料包 > 工具 > 清理旧物品 (或 文件 > 资料包 > 清理工具 > 存档).

5。 在“存档”对话框中,请单击以突出显示复制的文件夹,键入 今天 ,在 存档比以前的项目 框,然后单击 浏览 按钮。 看截图:

6。 在“打开Outlook数据文件”对话框中,请打开将要保存存档的PST文件的文件夹,在 文件名 框,然后单击 OK 按钮。 看截图:

7。 现在,您返回到“存档”对话框,请单击 OK 按钮以完成存档。
到目前为止,您已归档了没有任何附件的邮件文件夹。


通过 Kutools for Outlook 进行无附件存档

如果您安装了 Outlook 的 Kutools,您可以应用它 全部分离 此功能可从要归档的指定文件夹中快速删除所有附件,然后轻松归档不带附件的档案。

Kutools for Outlook:终极 Outlook 工具包,包含 100 多个方便的工具。 免费试用 30 天,无任何限制,不用担心!   阅读更多    立即开始免费试用!

1。 在 邮箱: 查看,打开您要存档的指定邮件文件夹,按选择所有电子邮件 按Ctrl + A 键,然后单击 库工具 > 全部分离。 看截图:

2。 在“请选择一个文件夹”对话框中,单击 浏览 按键  要指定将附件保存到的文件夹,请从 按照以下样式创建子文件夹 下拉列表,然后单击 Ok 按钮。 看截图:

3。 请点击 Premium Partner 按钮, OK 在弹出的对话框中依次点击“确定”按钮。

4。 继续点击 文件 > 资料包 > 工具 > 清理旧物品 (或 文件 > 资料包 > 清理工具 > 存档).

5。 在“存档”对话框中,请单击以突出显示要存档的不带附件的指定文件夹,键入 今天 ,在 存档比以前的项目 框,然后单击 浏览 按钮。 看截图:

6。 在“打开Outlook数据文件”对话框中,请打开将要保存存档的PST文件的文件夹,在 文件名 框,然后单击 OK 按钮。 看截图:

7。 现在,您返回到“存档”对话框,请单击 OK 按钮以完成存档。

到目前为止,您已经归档了没有附件的指定邮件文件夹。

Kutools for Outlook:通过 100 多种必备工具增强 Outlook 功能。 30 天免费试驾,无任何附加条件!   阅读更多    立即下载!


相关文章


最佳办公生产力工具

最新消息:Kutools for Outlook 发布 免费版本!

体验全新的 Kutools for Outlook 免费版本拥有 70 多项令人难以置信的功能,您可以永久使用! 点击立即下载!

🤖 Kutools人工智能 : 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...

📧 电子邮件自动化: 自动回复(适用于 POP 和 IMAP)  /  安排发送电子邮件  /  发送电子邮件时按规则自动抄送/密件抄送  /  自动转发(高级规则)   /  自动添加问候语   /  自动将多收件人电子邮件拆分为单独的消息 ...

📨 电子邮件管理: 撤回电子邮件  /  按主题和其他人阻止诈骗电子邮件  /  删除重复的电子邮件  /  高级搜索  /  合并文件夹 ...

📁 附件专业版批量保存  /  批量分离  /  批量压缩  /  自动保存   /  自动分离  /  自动压缩 ...

🌟 界面魔法: 😊更多又漂亮又酷的表情符号   /  收到重要邮件时提醒您  /  最小化 Outlook 而不是关闭 ...

👍 一键奇迹: 使用传入附件回复全部  /   反网络钓鱼电子邮件  /  🕘显示发件人的时区 ...

👩🏼‍🤝‍👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人  /  将联系人组拆分为各个组  /  删除生日提醒 ...

只需单击一下即可立即解锁 Kutools for Outlook -永久免费. 别等了, 立即下载并提高您的效率!

kutools for outlook 功能1 kutools for outlook 功能2
 

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations