title: Select email from a folder
body: <p>I open Outlook and reference a folder. How do I get a dialogue to manually select the email items in the folder?</p>
  
  <pre><code>Dim oOlApp As Object, objNmSpc As Object, ofldr As Object
  
  On Error Resume Next
  
  Set oOlApp = GetObject(, "Outlook.Application")
  
  If Err.Number &lt;&gt; 0 Then
      Set oOlApp = CreateObject("Outlook.Application")
  End If
  
  Err.Clear
  On Error GoTo 0
  
  Set objNmSpc = oOlApp.GetNamespace("MAPI")
  Set ofldr = objNmSpc.PickFolder
  
  If Not ofldr Is Nothing Then MsgBox ofldr
  </code></pre>