Estoy intentando obtener los folders de la bandeja principal de outlook en un treeview, el detalle que no logro es cómo obtener todos los parent de un item seleccionado, por ejemplo, en la imagen se observa que me faltan algunos parent:
Obtengo el elemento seleccionado, su parent y el root, pero falta en este ejemplo el parent "Folder B_hijo_de_A" y a su vez el parent de este que es "Folder A"
lo hago así:
Code: Select all
MsgInfo ({ " RootValue = ",frmMain.objTree.Item ( frmMain.objTree.RootValue), HB_EOL(),;
" ParentValue = ",frmMain.objTree.Item (frmMain.objTree.ParentValue(frmMain.objTree.Value)), HB_EOL(),;
" Item = ",frmMain.objTree.Item (frmMain.objTree.Value), HB_EOL() })
Code: Select all
oInbox := oNameSpace:GetDefaultFolder( InboxFolder )
selectedFolder := oInbox:Folders( ) -> aquí va anidado dependiendo si tiene hijos, para este ejemplo quedaría:
selectedFolder := oInbox:Folders( "Bandeja de entrada" ):Folders( "Folder A" ):Folders( "Folder B_hijo_de_A" ):Folders( "folder1_hijo_de_B" ):Folders(
"otro_folder_hijo_de_folder1" )
Gracias.
Saludos,
Javier