Я пытаюсь реализовать функцию поиска и перемещения в MS Outlook. Поиск в порядке, работает как шарм. Но я могу найти только функцию Переместить, чтобы переместить сообщение в папку Outlook.

Я использую функцию «Всегда перемещать сообщения в этом разговоре» вручную. Теперь я хотел бы использовать его из макроса. Есть ли способ использовать эту функцию из VBA?

Вот текущая реализация, но она использует простую функцию Move:

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