把邮件附件分离下来的vbs脚本

网易邮箱可以把邮件连同附件保存下来，用下面这个vbs脚本可以将附件分离出来，使用方法：把该vbs文件和保存下来的邮件文件保存在一个文件夹下，双击运行，就会在该文件夹下保存下来各个附件。

应该是从excelhome论坛上找来的，原帖地址如下

http://club.excelhome.net/thread-1117009-1-1.html

代码如下：

 

Dim objCDO, objMessage, objAtt, strPath, strAttPath, myReg
Set myReg=WScript.CreateObject("WScript.Shell")
strPath = myReg.CurrentDirectory & "\"
strAttPath = strPath
Set objCDO = CreateObject("CDO.DropDirectory")
    For Each objMessage In objCDO.GetMessages(strPath)
        For Each objAtt In objMessage.Attachments
            objAtt.SaveToFile strAttPath & objAtt.Filename
        Next
    Next
Set objCDO = Nothing
Set objMessage = Nothing
Set objAtt = Nothing
Set myReg= nothing
Msgbox "Ok, 附件存放在 " & strPath