批量提取eml文件中的附件 (163邮箱邮件批量导出文件格式为eml文件)

kangatang · 发表于 2014-4-29 11:31

本帖最后由 kangatang 于 2014-5-1 15:08 编辑

163邮箱邮件批量导出文件格式为eml文件，如下操作：

导出的eml文件中附件的提取：

eml文件附件提取.rar (1.46 MB, 下载次数: 5257) (解压运行)

感谢MISS WU, 如上更新。其实我只读取某些特定邮件(compressed screenshot files), 所以没有通用性。而MISS WU的eml-attachment-CDO.vbs具有通用性，赞一个，很给力，下次再多给意见，谢谢。

wudixin96 · 发表于 2014-4-29 11:45

这个方法好，利用XMLDOM

闻启学 · 发表于 2014-4-29 12:45

楼主我来学习一下先

wcymiss · 发表于 2014-4-30 20:46

本帖最后由 wcymiss 于 2014-4-30 21:53 编辑

亮点在xmldom解码base64字符串。截取附件的特征字串似乎不通用。

Cdo提取附件也挺方便的：

Sub GetEmlAtt()
Dim objCDO As Object
Dim objMessage As Object
Dim objAtt As Object
Dim strPath As String, strAttPath As String
strPath = "C:\邮件"
strAttPath = "C:\邮件\附件"
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
End Sub

复制代码

kangatang · 发表于 2014-5-1 15:11

wcymiss 发表于 2014-4-30 20:46
亮点在xmldom解码base64字符串。截取附件的特征字串似乎不通用。

Cdo提取附件也挺方便的：

很好的方法，我怎么只想到BASE64解码成BINARY, 再BINARY to file。

effendi · 发表于 2014-6-9 16:55

哈哈！非常强大！很有用！谢谢！

kangatang · 发表于 2014-6-9 22:24

effendi 发表于 2014-6-9 16:55
哈哈！非常强大！很有用！谢谢！

valuable在于useful

t13564865256 · 发表于 2015-6-26 16:38

wcymiss 发表于 2014-4-30 20:46
亮点在xmldom解码base64字符串。截取附件的特征字串似乎不通用。

Cdo提取附件也挺方便的：

您好，请教下，这个CDO怎么打开一封指定的.EML格式的邮件文件，而不是遍历一整个文件夹下的EML文件。语句应该怎么写。求指教

黑龙少1 · 发表于 2016-2-3 10:33

谢谢分享。

RFLN · 发表于 2016-6-20 23:37

太赞了，棒棒哒

		自动登录	找回密码
密码			免费注册

[分享] 批量提取eml文件中的附件 (163邮箱邮件批量导出文件格式为eml文件)