前言

今天收到一个别人转发的qq邮件，下载后才发现是eml格式，emm…怎么打开呢？我又没有安装客户端邮件软件…

方案

方法一 下载163邮箱客户端（其实只要下载任意一个邮箱软件，微软自带的也可以），就可以解压。方法二 使用下面这段代码，后缀改为vbs即可，不用下载软件也可以很好的解压

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, file save in: " & strPath

解压失败的可以下载我弄好的：下载地址