Public Sub MoveMail()
Dim l_o_curMail As Outlook.MailItem
Dim l_o_destFold As Outlook.Folder
On Error Resume Next
Set l_o_curMail = Application.ActiveInspector.CurrentItem
On Error GoTo 0
If Not l_o_curMail Is Nothing Then
Set l_o_destFold = Session.PickFolder()
If Not l_o_destFold Is Nothing Then l_o_curMail.Move l_o_destFold
End If
End Sub