Sub movemail()
Dim maiCount As Integer
Dim fldr As Folder
Set fldr = application.getnamespace("MAPI").getdefaultfolder("olfolderinbox")
For maiCount = Application.ActiveExplorer.Selection.count To 1 Step -1
Application.ActiveExplorer.Selection.Item(maiCount).Move fldr
Next
End Sub
|