'Move all selected messages to the destination folder
        For Each objItem In ol.ActiveExplorer.Selection
            If destFolder.DefaultItemType = olMailItem Then
                If objItem.Class = olMail Then
                    objItem.Move(destFolder)
                End If
            End If
        Next