用特定类别标记项目

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