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