sort items in folder...

[sal21]

How to order Ascending items, before the next loop, in folder SERVIZIO

My piece of code:

Code: Select all

Set olFld = olNsp.GetDefaultFolder(6).Parent.Folders("SERVIZIO")
    Me.ComboBox1.Clear
    For Each olItm In olFld.Items
        If InStr(olItm.Subject, "week") Then
            TEST = olItm.ReceivedTime
            If Int(TEST) <> Int(ORDINA_PREV) Then
                Me.ComboBox1.AddItem Format(TEST, "dd/mm/yyyy hh:mm")
                ORDINA_PREV = TEST
                I = I + 1
            End If
        End If
    Next olItm

[HansV]

You can sort the Items collection:

Code: Select all

    Dim itms As Outlook.Items ' or As Object
    Set olFld = olNsp.GetDefaultFolder(6).Parent.Folders("SERVIZIO")
    Me.ComboBox1.Clear
    Set itms = oFld.Items
    itms.Sort "[ReceivedTime]", False
    For Each olItm In itms
        If InStr(olItm.Subject, "week") Then
            TEST = olItm.ReceivedTime
            If Int(TEST) <> Int(ORDINA_PREV) Then
                Me.ComboBox1.AddItem Format(TEST, "dd/mm/yyyy hh:mm")
                ORDINA_PREV = TEST
                I = I + 1
            End If
        End If
    Next olItm

[sal21]

You can sort the Items collection:

Code: Select all

    Dim itms As Outlook.Items ' or As Object
    Set olFld = olNsp.GetDefaultFolder(6).Parent.Folders("SERVIZIO")
    Me.ComboBox1.Clear
    Set itms = oFld.Items
    itms.Sort "[ReceivedTime]", False
    For Each olItm In itms
        If InStr(olItm.Subject, "week") Then
            TEST = olItm.ReceivedTime
            If Int(TEST) <> Int(ORDINA_PREV) Then
                Me.ComboBox1.AddItem Format(TEST, "dd/mm/yyyy hh:mm")
                ORDINA_PREV = TEST
                I = I + 1
            End If
        End If
    Next olItm

You're the !
Thank you.