moving emails in Outlook.ahk

mail :=    ComObjActive("Outlook.Application").GetNameSpace("MAPI").GetDefaultFolder[6] ; Access the Session NameSpace
;~ mail :=    ComObjActive("Outlook.Application").GetNameSpace("MAPI").GetDefaultFolder[0] ; Access the Session NameSpace
myDestFolder := mail.Folders("CCY")
numb := myDestFolder.Items.Count
MsgBox % numb

Loop %  mail.Items.Count
{
   ;  if   Instr(mail.Items[A_Index].SenderName,"JoeTazz") {
     if   Instr(mail.Items[A_Index].Subject,"commented on") {
      Item := mail.Items(A_Index)
My .= A_Index ","
   }
}

StringTrimRight, My, My, 1 ; remove final `n
Sort, My , N, R, D, ; Numeric sort
; MsgBox % My

Loop, parse, My, `,
	mail.Items[A_LoopField].Move(myDestFolder)
return