how to set Outlook category

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   my dataprovider is Outlook 2010
by this code I read and add category from/to Outlook:
    ....
    Dim objCategory As Category
    Dim strOutput As String
    If myNamespace.Categories.count > 0 Then
        For Each objCategory In myNamespace.Categories
            strOutput = strOutput & objCategory.Name & _
                ": " & objCategory.CategoryID & vbCrLf
        Next
    End If
    Set objCategory = myNamespace.Categories("MyCategory")
    If Not objCategory Is Nothing Then
        ' check for the color and change if necessary
    Else
        ' add the category
        SetobjCategory = myNamespace.Categories.Add("MyCategory")
    End If
    MsgBox strOutput

by this code I wrote event, how I set "MyCategory" category? Label not coresponding with category.

    Me.m_pEditingEvent.Subject = txtSubject.Value
    Me.m_pEditingEvent.Location = txtLoc.Value
    Me.m_pEditingEvent.Body = txtBody.Value
    Me.m_pEditingEvent.BusyStatus = xtpCalendarBusyStatusBusy
    Me.m_pEditingEvent.ReminderMinutesBeforeStart = 30
    Me.m_pEditingEvent.Reminder = True
    Me.m_pEditingEvent.label = 5

? Me.m_pEditingEvent.Categories.count show 0 !!!!!

    Me.m_pCalendar.DataProvider.AddEvent Me.m_pEditingEvent

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
jixhut Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 26 June 2013 Status: Offline Points: 2	Post Options Post Reply Quote jixhut Report Post Thanks(0) Quote Reply Topic: how to set Outlook category Posted: 26 June 2013 at 3:39pm
	my dataprovider is Outlook 2010 by this code I read and add category from/to Outlook: .... Dim objCategory As Category Dim strOutput As String If myNamespace.Categories.count > 0 Then For Each objCategory In myNamespace.Categories strOutput = strOutput & objCategory.Name & _ ": " & objCategory.CategoryID & vbCrLf Next End If Set objCategory = myNamespace.Categories("MyCategory") If Not objCategory Is Nothing Then ' check for the color and change if necessary Else ' add the category SetobjCategory = myNamespace.Categories.Add("MyCategory") End If MsgBox strOutput by this code I wrote event, how I set "MyCategory" category? Label not coresponding with category. Me.m_pEditingEvent.Subject = txtSubject.Value Me.m_pEditingEvent.Location = txtLoc.Value Me.m_pEditingEvent.Body = txtBody.Value Me.m_pEditingEvent.BusyStatus = xtpCalendarBusyStatusBusy Me.m_pEditingEvent.ReminderMinutesBeforeStart = 30 Me.m_pEditingEvent.Reminder = True Me.m_pEditingEvent.label = 5 ? Me.m_pEditingEvent.Categories.count show 0 !!!!! Me.m_pCalendar.DataProvider.AddEvent Me.m_pEditingEvent