Tengo una aplicación BDS de Delphi 2006 con el siguiente código para iterar buzones de Outlook y luego la Bandeja de entrada y los Elementos enviados dentro del buzón:

  try
    nameSpace := outlook.GetNameSpace('MAPI');
    // load the mailboxes
    mailbox := NameSpace.Folders;

    for i := 1 to mailbox.Count do
      if Pos('MAILBOX', UpperCase(mailbox.Item[i].Name)) > 0 then
      begin
        rootNode := trvwOutlookFolders.Items.AddChildObject(nil, mailbox.Item[i].Name, nil);

        for j := 1 to mailbox.Item[i].Folders.Count do
          if (Pos('INBOX', UpperCase(mailbox.Item[i].Folders[j].Name)) > 0) or
             (Pos('SENT ITEMS', UpperCase(mailbox.Item[i].Folders[j].Name)) > 0) then
          begin
        // do processing
          end;

      end;

  finally
    outlook := Unassigned;
  end;
end;

El código funciona bien en Outlook 2007 pero no en 2010 porque los buzones no contienen la palabra 'Buzón'. Por lo tanto, busco un método alternativo para extraer SOLO los buzones (no las carpetas públicas, etc.) desde Outlook y su subsecuente Bandeja de entrada y carpetas de elementos enviados. ¿Algunas ideas