title: Outlook VBA: Move new (unsaved) item to folder
body: <p>I'm trying to cause a new Outlook item to be created in a specific store when the user saves it. Normally if there are multiple accounts, when you create a new item (e.g. press Ctrl+Shift+K for a task), the new item is created in the default folder for the active account.</p>
  
  <p>I tried intercepting the inspector for the new item and moving it, but it had no effect. Here is the gist of the code (checking to avoid non-new items is omitted):</p>
  
  <pre><code>Dim WithEvents inspectors As Outlook.inspectors
  
  Private Sub Application_Startup()
      Set inspectors = Application.inspectors
  End Sub
  
  Private Sub inspectors_NewInspector(ByVal Inspector As Inspector)
      Dim item As Object
      Set item = Inspector.CurrentItem
      If item Is Nothing Then Exit Sub
      If item.Class &lt;&gt; olTask Then Exit Sub
      item.Move Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks)
  End Sub
  </code></pre>
  
  <p>Unfortunately, the Move method has no effect. Any ideas?</p>