OutlookMoveMail.vbs

Sub MoveMail()
    On Error Resume Next
    Dim ns As Outlook.NameSpace
    Dim moveToFolder As Outlook.MAPIFolder
    Dim objItem As Outlook.MailItem

    ns = Application.GetNamespace("MAPI")
    moveToFolder = ns.Folders("資料檔名稱").Folders("資料夾名稱")

    For Each objItem In Application.ActiveExplorer.Selection
        If moveToFolder.DefaultItemType = olMailItem Then
            If objItem.Class = olMail Then
                objItem.Move(moveToFolder)
            End If
        End If
    Next
End Sub