如何删除所有颜色类别？

Question

我正在尝试删除所有颜色类别。但是，以下代码并不总是删除所有案例，通常会留下两个或三个案例。

它有什么理由跳过某些类别吗？

    Public Sub DeleteAllCategories()
        On Error GoTo MyErrorHandler

        'Assume gOutlookApp (as in Dim gOutlookApp As Outlook.Application) is valid
        Dim theCategories As Outlook.Categories
        Set theCategories = gOutlookApp.Session.Categories

        Dim i As Long
        For i = 1 To theCategories.Count
            theCategories.Remove 1
            DoEvents
        Next

        Exit Sub

    MyErrorHandler:
        MsgBox "DeleteAllCategories" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description
    End Sub

Answer 1

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

请尝试以下操作：

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

Answer 2

我设法使用规则来做到这一点。就像如果它分配给任何类别然后删除类别，然后我在收件箱上运行它。如果您感兴趣的话，可以使用非编码解决方案！

Answer 3

删除时反向循环

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