title: How to use "Always Move Messages in This Conversation" feature from VBA in MS Outlook?
body: <p>I'm trying to implement a search and move feature in MS Outlook. Search is OK, it works like charm. But, I can find only the Move function to move message into an Outlook folder.</p>
  
  <p>I use the Always Move Messages in This Conversation feature manually. Now, I'd like to use it from macro. Is there any way to use this feature from VBA?</p>
  
  <p>Here is the current implementation but it uses the simple Move feature:</p>
  
  <pre><code>Private Sub btn_Click()
      Dim currentMail As Object
      Dim F As Outlook.MAPIFolder
      Dim Msg$
      Set currentMail = Application.ActiveWindow
      If TypeOf currentMail Is Outlook.Inspector Then
        Set currentMail = obj.CurrentItem
      Else
        Set currentMail = obj.Selection(1)
      End If
  
      currentMail.Move Folder
  End Sub
  </code></pre>