如何快速存档 Outlook 中的所有过期电子邮件

展望数据恢复, 展望解决方案 2017 年 10 月 9 日

Outlook 允许用户设置电子邮件的到期时间。 此类电子邮件以灰色删除线字体显示。 如果你希望快速归档所有过期邮件，可以使用本文介绍的方法。

您可以为 Outlook 中的任何电子邮件设置任何到期时间。 一旦过期时间过去，电子邮件将被标记为已过期并带有灰色删除线。 在这种情况下，总是建议快速归档它们，因为它们可能不再有用。 存档它们可以在某种程度上减小 Outlook 文件的大小。 下面，我们将教您如何快速归档 Outlook 中所有过期的邮件。

快速存档 Outlook 中的所有过期电子邮件

快速存档所有过期的电子邮件

  1. 对于作为tart，启动您的 Outlook 程序。
  2. 然后，在 Outlook 屏幕中，您可以按“Alt + F11”键按钮访问 VBA 编辑器。
  3. 接下来在“Microsoft Visual Basic for Applications”窗口中，您需要打开一个未使用的模块或直接插入一个新模块。
  4. 随后，您应该将以下 VBA 代码复制到该模块中。
Dim objArchiveFile As folder Dim objArchiveFolder As folder Sub ArchiveAllExpiredEmails() Dim objOutlookFile As Outlook.folder Dim objFolder As Outlook.folder Set objOutlookFile = Application.Session.PickFolder '打开存档 PST 文件 Application.Session.AddStore "C:\Users\Test \Documents\Outlook Files\Archive.pst" 设置 objArchiveFile = Application.Session.folders("Archives") 如果不是（objOutlookFile 什么都没有）则对于 objOutlookFile.folders 中的每个 objFolder 如果 objFolder.DefaultItemType = olMailItem 然后调用 ProcessFolders(objFolder) End If Next '如果要关闭存档 PST 文件，请使用以下行 'Application.Session.RemoveStore objArchivePSTFile MsgBox "Complete!", vbExclamation End If End Sub Sub ProcessFolders(ByVal objCurrentFolder As Outlook.folder) Dim i As Long Dim objMail As Outlook.MailItem Dim objSubfolder As Outlook.folder For i = objCurrentFolder.Items.count To 1 Step -1 If TypeOf objCurrentFolder.Items(i) Is MailItem Then Set objMail = objCurrentFolder.Items(i) '将过期电子邮件移至存档File If objMail.ExpiryTime < Now Then On Error Resume Next Set objArchiveFolder = objArchiveFile.folders(objCurrentFolder.Name) 如果 objArchiveFolder 为 Nothing Then Set objArchiveFolder = objArchiveFile.folders.Add(objCurrentFolder.Name) End If objMail.Move objArchiveFolder End If End If Next '递归处理所有子文件夹 If objCurrentFolder.folders.count > 0 Then For Each objSubfolder In objCurrentFolder.folders Call ProcessFolders(objSubfolder) Next End If End Sub

VBA代码——快速归档所有过期邮件

  1. 然后，您可以立即运行此宏。 只需单击工具栏中的“运行”图标或点击“F5”键按钮。
  2. 之后，您需要选择要检查过期电子邮件的源 Outlook 文件。
  3. 稍后，选择并点击“确定”后，宏将 star没跑。
  4. 当您收到提示“完成”的消息时，过期的电子邮件已成功移动到存档 PST 文件。存档的过期电子邮件

万一 Outlook 崩溃

如果您几十年来一直是 Outlook 的普通用户，您的 Outlook 数据文件可能已经非常大了。 在这种情况下，该文件实际上很容易受到许多因素的影响。 众所周知，尽管 Outlook 被吹捧为非凡的电子邮件客户端，但它仍然容易崩溃和损坏。 因此，你最好准备一个高级的 Outlook修复 附近的工具，例如 DataNumen Outlook Repair. 它可以轻而易举地将您从 Outlook 数据损坏中解救出来。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 sql损坏 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

评论被关闭。