如何自动将已发送的会议移动到Outlook中的特定文件夹?
通常,在发送电子邮件或会议之后,它们都将位于“已发送邮件”文件夹中。 因此,“已发送邮件”文件夹将非常凌乱且繁琐。 本文,我将介绍一种在会议发送后将发送的会议自动移动到另一个文件夹的方法。
使用VBA代码自动将已发送的会议移动到特定文件夹
要将所有发送的会议邀请自动移动到另一个文件夹,请执行以下代码,以帮助您:
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 在 Microsoft Visual Basic应用程序 窗口,双击 本次展望会议 来自 Project1(VbaProject.OTM) 窗格以打开模式,然后将以下代码复制并粘贴到空白模块中。
VBA代码:自动将已发送的会议移动到特定文件夹
Private WithEvents GExplorer As Outlook.Explorer
Public WithEvents GSentFolder As Outlook.Folder
Public WithEvents GSentItems As Outlook.Items
Private Sub Application_Startup()
Set GExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub GExplorer_SelectionChange()
Dim xFolder As Folder, xRootFolder As Folder
Dim xRootFldName As String
Dim xPos As Integer
On Error Resume Next
Set xFolder = Outlook.Application.ActiveExplorer.CurrentFolder
xPos = VBA.InStr(3, xFolder.FolderPath, "\")
If xPos > 0 Then
xRootFldName = VBA.Mid(xFolder.FolderPath, 3, xPos - 3)
Else
xRootFldName = VBA.Mid(xFolder.FolderPath, 3, Len(xFolder.FolderPath) - 2)
End If
Set xRootFolder = Outlook.Application.Session.Folders(xRootFldName)
Set GSentFolder = xRootFolder.Folders("Sent Items")
Set GSentItems = GSentFolder.Items
End Sub
Private Sub GSentItems_ItemAdd(ByVal Item As Object)
Dim xMeetingItem As Outlook.MeetingItem
Dim xTargetFolder As Outlook.Folder
On Error Resume Next
If Item.Class <> olMeetingRequest Then Exit Sub
Set xMeetingItem = Item
Set xTargetFolder = GSentFolder.Folders("Meetings")
If xTargetFolder Is Nothing Then
Set xTargetFolder = GSentFolder.Folders.Add("Meetings")
End If
xMeetingItem.Move xTargetFolder
End Sub
3。 然后,保存并关闭代码窗口。 现在,发送会议电子邮件后,它将被移至名为 会议 在下面 发送的邮件 文件夹自动,请参见屏幕截图:
最佳办公生产力工具
Kutools for Outlook - 超过 100 种强大功能可增强您的 Outlook
🤖 人工智能邮件助手: 具有人工智能魔力的即时专业电子邮件——一键天才回复、完美语气、多语言掌握。轻松改变电子邮件! ...
📧 电子邮件自动化: 外出(适用于 POP 和 IMAP) / 安排发送电子邮件 / 发送电子邮件时按规则自动抄送/密件抄送 / 自动转发(高级规则) / 自动添加问候语 / 自动将多收件人电子邮件拆分为单独的消息 ...
📨 电子邮件管理: 轻松回忆电子邮件 / 按主题和其他人阻止诈骗电子邮件 / 删除重复的电子邮件 / 高级搜索 / 合并文件夹 ...
📁 附件专业版: 批量保存 / 批量分离 / 批量压缩 / 自动保存 / 自动分离 / 自动压缩 ...
🌟 界面魔法: 😊更多又漂亮又酷的表情符号 / 使用选项卡式视图提高 Outlook 工作效率 / 最小化 Outlook 而不是关闭 ...
👍 一键奇迹: 使用传入附件回复全部 / 反网络钓鱼电子邮件 / 🕘显示发件人的时区 ...
👩🏼🤝👩🏻 通讯录和日历: 从选定的电子邮件中批量添加联系人 / 将联系人组拆分为各个组 / 删除生日提醒 ...
超过 100特点 等待您的探索! 单击此处了解更多。