Question

我想根据项目中的文字标记具有特定类别的项目。

我有以下代码。

Sub ProcessRSS()
    ' Read RSS items and process the usful ones.
    Dim objList As Object
    Dim objItem As Object
    Dim iCount As Integer

    Set objList = Application.ActiveExplorer.CurrentFolder.Items
    iCount = 0

    For Each objItem In objList
        If (InStr(objItem.Body, "(WA)") > 0) Then
            objItem.Categories = "Important"
            If (InStr(objItem.Categories, "Important") > 0) Then
                iCount = iCount + 1
            End If
        End If
    Next

    Debug.Print "Marked " & iCount & " RSS Items as important."

End Sub

我选择文件夹，然后运行宏，但它不会标记类别。

Answer 1

更新类别后，您需要.Save您的项目。下面是保存的For循环。作为旁注，请记住，您将覆盖任何现有类别，因为.Categories是逗号分隔的字符串。您可能想要测试.Categories是否为空，如果没有，请添加“，重要”。

For Each objItem In objList
    If (InStr(objItem.Body, "(WA)") > 0) Then
        objItem.Categories = "Important"
        objItem.Save
        If (InStr(objItem.Categories, "Important") > 0) Then
            iCount = iCount + 1
        End If
    End If
Next

标记具有特定类别的项目

1 个答案: