Hente Etiket typen på en outlook appointment fra Outlook.

Hej.
Jeg har lavet en del kode, som kan synkronisere en online kalender med ens outlook kalender, men jeg har ikke kunnet løse den opgave at skulle hente etiket typen på aftalen ud.

Er der nogen der kan give mig en hånd med det problem??

Her er koden jeg bruger for at få fat i kalender objectet, samt slette en attribut jeg sætter tidligere....

    Dim objNS
    Dim objApptFolder, objAppt
    Dim objItems, intX
    Dim tempDate
    tempCount = 0
    Set App = CreateObject("Outlook.Application")
   
    Set objNS = App.GetNamespace("MAPI")
    objNS.Logon

    Set objApptFolder = objNS.GetDefaultFolder(9)
    Set objItems = objApptFolder.Items
    teststr = ""
    For intX = 1 To objItems.Count
        Set objAppt = objItems.Item(intX)
        Set TraceIDProperty = objAppt.UserProperties.Find("tempID")
       
        If Not TypeName(TraceIDProperty) = "Nothing" Then                   
            If objAppt.Start > CDate("31-12-2004") Then
                alert(""&TraceIDProperty)
                TraceIDProperty.Delete
                objAppt.Save   
            End if
        End If       
    Next

Håber nogen kan hjælpe.