Howto set Outlook MailItem Property Category <p>I am trying to set the category of the currently selected outlook mail item to a value.</p> <p>The following seems to be setting it but it isnt updating the GUI of Outlook.</p> <pre><code>Option Explicit Public Sub SaveMessageAsMsg() Dim oMail As Outlook.MailItem Dim objItem As Object Dim sPath As String Dim dtDate As Date Dim sName As String Dim enviro As String Dim oPA As PropertyAccessor Dim arrErrors As Variant Dim i As Integer enviro = CStr(Environ("USERPROFILE")) For Each objItem In Application.ActiveExplorer.Selection If objItem.MessageClass = "IPM.Note" Then Set oMail = objItem Debug.Print oMail.Categories oMail.Categories = "99 - Archive" Debug.Print oMail.Categories End If Next </code></pre> <p>End Sub</p>