Como usar o recurso "Sempre mover mensagens nesta conversa" do VBA no MS Outlook?

Estou tentando implementar um recurso de pesquisa e movimentação no MS Outlook. A pesquisa está correta, funciona como charme. Mas, posso encontrar apenas a função Mover para mover a mensagem para uma pasta do Outlook.

Eu uso o recurso Sempre mover mensagens nesta conversa manualmente. Agora, eu gostaria de usá-lo a partir da macro. Existe alguma maneira de usar esse recurso do VBA?

Aqui está a implementação atual, mas ela usa o simples recurso Mover:

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