Отметить предмет с определенной категорией

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