提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何清除Outlook中的所有类别?

假设有很多项目应用于Outlook中的颜色类别。 如果您需要从项目中清除所有这些类别,您如何在Outlook中快速轻松地处理此工作?

使用“清除所有类别”功能清除特定文件夹中的所有类别

使用VBA代码清除特定帐户中的所有类别


使用“清除所有类别”功能清除特定文件夹中的所有类别

如果您只需要清除特定文件夹中的类别,请执行以下操作:

1。 单击要删除颜色类别的文件夹,然后按 按Ctrl + A 选择所有项目。

2。 然后右键单击,然后选择 分类 > 清除所有类别 从上下文菜单中,看截图:

doc明确类别1

3. 然后,此特定文件夹中的所有颜色类别都已立即清除。


使用VBA代码清除特定帐户中的所有类别

要从帐户中清除所有项目中的所有类别,例如电子邮件,任务,联系人,便笺等,以下VBA代码可以帮到您:

1。 单击要清除所有类别的帐户电子邮件,然后按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2。 点击 插页 > 模块,并粘贴在下面的宏 模块 窗口。

VBA代码:清除特定帐户中的所有类别:

Sub BatchClearAllCategories_AllOutlookItems()Dim xCurrentFolder As Outlook.Folder Dim xFolder As Folder,xCurFolder As Folder Dim xPos As Integer Dim xRootFldName As String Set xCurFolder = Outlook.ActiveExplorer.CurrentFolder xPos = InStr(3,xCurFolder.FolderPath,“\”)if xPos > 0然后xRootFldName = Mid(xCurFolder.FolderPath,3,xPos  -  3)Else xRootFldName = Mid(xCurFolder.FolderPath,3,Len(xCurFolder.FolderPath) -  2)结束如果设置xCurrentFolder = Outlook.Application.Session.Folders( xRootFldName)每个xFolder在xCurrentFolder.Folders中调用ProcessFolders(xFolder)下一个MsgBox“清除完成!”,vbInformation + vbOKOnly,“Kutools for Outlook”End Sub Sub ProcessFolders(ByVal CurFld As Outlook.Folder)Dim xItem As Object Dim i As Integer Dim xSubfolder As Outlook.Folder如果CurFld.Items.Count> 0 Then For i = CurFld.Items.Count To 1 Step -1 Set xItem = CurFld.Items.Item(i)xItem.Categories =“”xItem.Save Next结束如果如果CurFld.Folders.Count = XNUM X然后在CurFld.Folders中为每个xSubfolder退出Sub调用ProcessFolders(xSubfolder)Next End Sub

3。 然后按 F5 运行它的键,然后弹出一个提示框,提醒您已清除所选帐户中的所有类别,请参见屏幕截图:

doc明确类别2


Kutools for Outlook - 为Outlook带来100高级功能,让工作更轻松!

  • 自动CC / BCC 发送电子邮件时的规则; 自动转发 多个电子邮件按自定义; 自动回复 没有交换服务器,以及更多自动功能......
  • BCC警告 - 当您尝试回复所有内容时显示消息 如果您的邮件地址在BCC列表中; 缺少附件时提醒,以及更多提醒功能......
  • 回复(全部)使用邮件会话中的所有附件; 回复很多电子邮件 很快; 自动添加问候语 回复时; 将日期添加到主题...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,重命名全部,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 按惯例; 删除重复邮件和联系人... 使您能够在Outlook中更智能,更快速,更好地完成工作。
拍摄kutools outlook kutools选项卡1180x121
拍摄kutools outlook kutools加标签1180x121
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.