Recursive/traversal search of items using EWS managed API in subfolders too

The name of the pictureThe name of the pictureThe name of the pictureClash Royale CLAN TAG#URR8PPP





.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0;







up vote
2
down vote

favorite












I would like to know if there's a more efficient way of querying items than this (that works, though):



Imports Microsoft.Exchange.WebServices

Public Class ExchangeTools
 Private Shared Function Items(
 target_folder As Data.Folder,
 Optional recurse As Boolean = False,
 Optional querystring As String = Nothing
 ) As IEnumerable(Of Data.EmailMessage)
 Dim retvar As IEnumerable(Of Data.EmailMessage)
 Dim iview = New Data.ItemView(Integer.MaxValue)
 If String.IsNullOrWhiteSpace(querystring) Then
 retvar = target_folder.FindItems(iview).OfType(Of Data.EmailMessage)
 Else
 retvar = target_folder.FindItems(querystring, iview).OfType(Of Data.EmailMessage)
 End If
 If recurse Then
 Dim fview = New Data.FolderView(Integer.MaxValue)
 retvar = retvar.Concat(
 target_folder.FindFolders(fview).SelectMany(
 Function(sf) Items(sf, True, querystring)))
 End If
 Return retvar
 End Function
End Class



vb.net




share|improve this question



























    up vote
    2
    down vote

    favorite












    I would like to know if there's a more efficient way of querying items than this (that works, though):



    Imports Microsoft.Exchange.WebServices

    Public Class ExchangeTools
     Private Shared Function Items(
     target_folder As Data.Folder,
     Optional recurse As Boolean = False,
     Optional querystring As String = Nothing
     ) As IEnumerable(Of Data.EmailMessage)
     Dim retvar As IEnumerable(Of Data.EmailMessage)
     Dim iview = New Data.ItemView(Integer.MaxValue)
     If String.IsNullOrWhiteSpace(querystring) Then
     retvar = target_folder.FindItems(iview).OfType(Of Data.EmailMessage)
     Else
     retvar = target_folder.FindItems(querystring, iview).OfType(Of Data.EmailMessage)
     End If
     If recurse Then
     Dim fview = New Data.FolderView(Integer.MaxValue)
     retvar = retvar.Concat(
     target_folder.FindFolders(fview).SelectMany(
     Function(sf) Items(sf, True, querystring)))
     End If
     Return retvar
     End Function
    End Class



    vb.net




    share|improve this question























      up vote
      2
      down vote

      favorite









      up vote
      2
      down vote

      favorite











      I would like to know if there's a more efficient way of querying items than this (that works, though):



      Imports Microsoft.Exchange.WebServices

      Public Class ExchangeTools
       Private Shared Function Items(
       target_folder As Data.Folder,
       Optional recurse As Boolean = False,
       Optional querystring As String = Nothing
       ) As IEnumerable(Of Data.EmailMessage)
       Dim retvar As IEnumerable(Of Data.EmailMessage)
       Dim iview = New Data.ItemView(Integer.MaxValue)
       If String.IsNullOrWhiteSpace(querystring) Then
       retvar = target_folder.FindItems(iview).OfType(Of Data.EmailMessage)
       Else
       retvar = target_folder.FindItems(querystring, iview).OfType(Of Data.EmailMessage)
       End If
       If recurse Then
       Dim fview = New Data.FolderView(Integer.MaxValue)
       retvar = retvar.Concat(
       target_folder.FindFolders(fview).SelectMany(
       Function(sf) Items(sf, True, querystring)))
       End If
       Return retvar
       End Function
      End Class



      vb.net




      share|improve this question













      I would like to know if there's a more efficient way of querying items than this (that works, though):



      Imports Microsoft.Exchange.WebServices

      Public Class ExchangeTools
       Private Shared Function Items(
       target_folder As Data.Folder,
       Optional recurse As Boolean = False,
       Optional querystring As String = Nothing
       ) As IEnumerable(Of Data.EmailMessage)
       Dim retvar As IEnumerable(Of Data.EmailMessage)
       Dim iview = New Data.ItemView(Integer.MaxValue)
       If String.IsNullOrWhiteSpace(querystring) Then
       retvar = target_folder.FindItems(iview).OfType(Of Data.EmailMessage)
       Else
       retvar = target_folder.FindItems(querystring, iview).OfType(Of Data.EmailMessage)
       End If
       If recurse Then
       Dim fview = New Data.FolderView(Integer.MaxValue)
       retvar = retvar.Concat(
       target_folder.FindFolders(fview).SelectMany(
       Function(sf) Items(sf, True, querystring)))
       End If
       Return retvar
       End Function
      End Class




      vb.net





      share|improve this question












      share|improve this question




      share|improve this question








      edited Apr 28 at 0:32









      Jamal♦

      30.1k11114225




      30.1k11114225









      asked Apr 27 at 23:48









      VBobCat

      1656




      1656

























          active

          oldest

          votes











          Your Answer




          StackExchange.ifUsing("editor", function ()
          return StackExchange.using("mathjaxEditing", function ()
          StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
          StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["\$", "\$"]]);
          );
          );
          , "mathjax-editing");

          StackExchange.ifUsing("editor", function ()
          StackExchange.using("externalEditor", function ()
          StackExchange.using("snippets", function ()
          StackExchange.snippets.init();
          );
          );
          , "code-snippets");

          StackExchange.ready(function()
          var channelOptions =
          tags: "".split(" "),
          id: "196"
          ;
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function()
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled)
          StackExchange.using("snippets", function()
          createEditor();
          );

          else
          createEditor();

          );

          function createEditor()
          StackExchange.prepareEditor(
          heartbeatType: 'answer',
          convertImagesToLinks: false,
          noModals: false,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: null,
          bindNavPrevention: true,
          postfix: "",
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          );



          );








           

          draft saved


          draft discarded


















          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodereview.stackexchange.com%2fquestions%2f193121%2frecursive-traversal-search-of-items-using-ews-managed-api-in-subfolders-too%23new-answer', 'question_page');

          );

          Post as a guest






















          active

          oldest

          votes













          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes










           

          draft saved


          draft discarded


























           


          draft saved


          draft discarded














          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fcodereview.stackexchange.com%2fquestions%2f193121%2frecursive-traversal-search-of-items-using-ews-managed-api-in-subfolders-too%23new-answer', 'question_page');

          );

          Post as a guest
































































          -

          Popular posts from this blog

          Greedy Best First Search implementation in Rust

          Image
          Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote 1 down vote favorite I have implemented a Greedy Best First Search algorithm in Rust, since I couldn't find an already implemented one in the existing crates. I have a small pet project I do in Rust, and the Greedy BFS is at the core of it. The algorithm is designed to be as flexible as possible. Theoretically, this algorithm could be used as a greedy depth-first search or as a greedy a*. I want to design a good algorithm that I could later use in any other project needing it, not only this one. I am quite new to Rust and this is the second project I do in this language. Also, I am new to writing optimized algorithms. Since this search will be called often, my main concern is performance. What are some tips and tricks to make the algorithm perform better? Of course any other critique and comment is welcome. Bellow is the code: //! Here is
          Read more

          Function to Return a JSON Like Objects Using VBA Collections and Arrays

          Image
          Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote 1 down vote favorite My goal is to create a compact function that can create a JSON Like object from JSON string. I want a function with a small footprint that I or anyone who wants to use it, can simply paste into a module and use. At 61 lines of code, I am happy with its size and portability. Here is an image of JSON Object created from string data using a ScriptControl . Although the Locals Window displays the properties and values correctly, the object itself is extremely difficult to work with. This image shows an object created using getJSONCollection . Because it is made of VBA Collections and Arrays, it is very easy to work with. Option Explicit Private Function getJSONCollection(ByVal Value As Variant, Optional ScriptEngine As Object) As Variant Const DELIMITER As String = "||" Dim col As Collection, JSON As Object, KeyNam
          Read more

          C++11 CLH Lock Implementation

          Image
          Clash Royale CLAN TAG #URR8PPP .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty margin-bottom:0; up vote 1 down vote favorite 1 As a hobbyist programmer I have been reading "The Art of Multiprocessor Programming" (Herlihy, Maurice; Shavit, Nir) and converting the Java spin locks into C++ - I have enjoyed this and learned a lot. I have implemented the CLH spin queue lock (due to Travis Craig, Erik Hagersten, and Anders Landin) but I feel unhappy about the way that I have the raw pointers interacting with smart pointers and would be grateful for code review advice. As I understand it I must use a smart pointer, in this case std::unique_ptr , for my thread local node pointer or the lock will not deallocate properly and the clh_lock will leak. But... I also have no choice but to use a raw atomic tail queue pointer in order access the atomic exchange member function. Therefore, I have to come up with some combination of either, raw or smart
          Read more