Ich versuche, eine Such- und Verschiebefunktion in MS Outlook zu implementieren. Die Suche ist in Ordnung, es funktioniert wie Charme. Ich kann jedoch nur die Funktion "Verschieben" zum Verschieben von Nachrichten in einen Outlook-Ordner finden.

Ich verwende die Funktion "Nachrichten in dieser Konversation immer verschieben" manuell. Jetzt möchte ich es von Makro verwenden. Gibt es eine Möglichkeit, diese Funktion von VBA aus zu verwenden?

Hier ist die aktuelle Implementierung, sie verwendet jedoch die einfache Verschiebefunktion:

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