关于eml邮件解压使用

最新推荐文章于 2024-01-11 14:45:23 发布

默默提升实验室

最新推荐文章于 2024-01-11 14:45:23 发布

阅读量783

点赞数

分类专栏：办公技巧文章标签： eml 邮件

本文链接：https://blog.csdn.net/qq_36292543/article/details/116999705

版权

办公技巧专栏收录该内容

37 篇文章 4 订阅

订阅专栏

前言

今天收到一个别人转发的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

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