如何删除所有颜色类别？

3 回答

• 0

  这个问题有点旧，但对于可能正在寻找相同答案的其他人来说......

  尝试下面的尝试：

  Public Sub DeleteAllCategories()
      'Assume gOutlookApp (as in Dim gOutlookApp As Outlook.Application) is valid
      Dim objCategory As Outlook.Category   'Changed from Outlook.Categories
      Dim strCAT As String
      On Error GoTo MyErrorHandler
  
      For Each objCategory In Session.Categories 'Removed the gOutlookApp
          strCAT = objCategory
          Debug.Print strCAT;
          Session.Categories.Remove (strCAT)
          Debug.Print " - Deleted: " & CBool(Session.Categories.Item(strCAT) Is Nothing)
      Next
  
      Exit Sub
  
  MyErrorHandler:
      MsgBox "DeleteAllCategories" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description
  End Sub
  

  回复于 2024-05-03T16:34:04+08:00
• 0

  我设法使用规则来做到这一点 . 如果它被分配到任何类别然后删除类别，然后我在我的收件箱中运行它 . 一个非编码的解决方案，如果你感兴趣的话！

  回复于 2024-05-03T16:34:04+08:00
• 0

  删除时反向循环

  Option Explicit
  Public Sub DeleteAllCategories()
      Dim theCategories As Outlook.Categories
      Set theCategories = Application.Session.Categories
  
      Dim i As Long
      For i = theCategories.Count To 1 Step -1
          DoEvents
          Debug.Print theCategories(i)
  '       Remove i
      Next
  End Sub
  

  回复于 2024-05-03T16:34:04+08:00