Outlook loop items only applies to first item

[Jon von der Heyden]

Hi All

Snippet from my Outlook VBA:

If .optCategorize.Value Then
    For Each varItem In ActiveExplorer.Selection
        If TypeName(varItem) = "MailItem" Then
            'Debug.Print varItem.Subject, strCats
            varItem.Categories = strCats
        End If
    Next varItem
End If

If I select multiple mail items, while it does appear to loop all items (the debug print correctly reveals each item, and the string value is the same for each item), it doesn't apply strCats to the mail item categories property for any but the first item.

Any idea why?

Regards
Jon

 

[smozgur]

Easy one Jon

You need to save each mail item since only one of them is active in the selection. I know, it doesn't make sense but it is how it is.

    For Each varItem In ActiveExplorer.Selection
        If TypeName(varItem) = "MailItem" Then
            'Debug.Print varItem.Subject, strCats
            varItem.Categories = strCats
            varItem.Save
        End If
    Next varItem

 

[Jon von der Heyden]

Suat, this is why I love you! <3

 

[smozgur]

Suat, this is why I love you! <3