특정 범주의 항목 표시

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