如何将已发送的会议邀请自动移动到 Outlook 中的特定文件夹

展望解决方案 2025 年 9 月 29 日
立即分享：

许多用户渴望有方法将 Outlook 配置为自动将已发送的会议邀请移动到特定文件夹。 在这篇文章中，我们将分享一个简单的实现方法。

Outlook 始终将所有类型的已发送项目保存在“已发送项目”文件夹中，无论是电子邮件、任务请求还是会议邀请。 这样，您会发现您的“已发送邮件”文件夹相当凌乱。 因此，您可能希望 Outlook 自动移动并将会议邀请保存到不同的文件夹。

将已发送的会议邀请自动移动到 Outlook 中的特定文件夹

撰写电子邮件时，您可以在“选项”选项卡上找到“将已发送的项目保存到其他文件夹”。 它允许用户在发送前更改文件夹以保存电子邮件。 然而，会议邀请没有这样的功能。 您可以做的是在发送后移动已发送的会议邀请。 下面，我们将教大家如何用VBA代码实现这样的“自动移动”。

自动将已发送的会议邀请移动到特定文件夹

  1. 首先，在 Outlook 中按“Alt + F11”按钮。
  2. 然后，进入VBA编辑器后，打开“ThisOutlookSession”项目
  3. 接下来，将以下 VBA 代码复制并粘贴到该项目中。
'As Meeting will be auto saved in Sent Items folder
'Here we will monitor the new item in this folder
Public WithEvents objSentFolder As Outlook.Folder
Public WithEvents objSentItems As Outlook.Items

Private Sub Application_Startup()
    Set objSentFolder = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail)
    Set objSentItems = objSentFolder.Items
End Sub

Private Sub objSentItems_ItemAdd(ByVal Item As Object)
    Dim objMeetingInvitation As Outlook.MeetingItem
    Dim objTargetFolder As Outlook.Folder
 
    'If the new item is meeting item
    If TypeOf Item Is MeetingItem Then
       Set objMeetingInvitation = Item
 
       'Get the target folder
       On Error Resume Next
       Set objTargetFolder = objSentFolder.Folders("Meeting Requests")
       If objTargetFolder Is Nothing Then
          Set objTargetFolder = objSentFolder.Folders.Add("Meeting Requests")
       End If
 
       'Move it
       objMeetingInvitation.Move objTargetFolder
    End If
End Sub

VBA 代码 - 自动将已发送的会议邀请移动到特定文件夹

  1. 随后，将光标置于“Application_Startup”子程序并按“F5”键，这将激活这个新宏。
  2. 此后，每次发出会议邀请后，它都会自动移动到上述代码中预定义的目标文件夹中，如下图所示。发送会议邀请

Outlook 数据恢复中的必要事项

众所周知，Outlook 有时会崩溃。 因此，用户经常会遇到无法访问 Outlook 文件的情况。 那时，您必须执行 Outlook 数据恢复。 如果你在这方面完全是新手，你需要做一些准备，包括检查数据备份、收件箱修复工具——Scanpst 以及一个值得信赖的外部 Outlook 修复工具，比如 DataNumen Outlook Repair. 有了它们，您可以 修复 Outlook 毫不费力地归档。

作者简介：

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

立即分享：

评论被关闭。