寻大侠，打开附件中的附件。

pxpd101 · 发表于 2009-9-21 12:29

我这里需要处理16000多封信，每个信中都有一个msg附件，msg文件中，有一个我需要的文件（*.A）文件，如何解决？有没有能够一下解决的方案，利用VBA。一头雾水中。。。。

采用了两步走的方式，把信中的msg文件都提取出来了。第二步接下来如何批量打开文件夹中msg文件，并提取其附件中的文件。

LangQueS · 发表于 2009-9-21 12:46

建议楼主压缩上传Excel问题附件并加以说明或做出模拟结果，以便大家了解和解答。(编辑已发贴即可补充上传附件)

如何发表新话题和上传附件:
http://club.excelhome.net/thread-45649-1-1.html

发帖的技巧:
http://club.excelhome.net/thread-176339-1-1.html

pxpd101 · 发表于 2009-9-21 15:20

附件中的文件就是一个嵌套附件的一个outlook文件，像这样的文件，我要处理16000多个，如何批量提取附件中的*.RWD文件。
本人有一定的VBA经验，对word,excel对象模型有很深入的研究，对Outlook对象不是很清楚，目前已经把第一层文件提取出来了，即只包含*.rwd文件附件的*。msg文件。能否通过程序一次性提取到最底层的rwd文件。如果不能，那可不可以在outlook中，批量打开这个msg文件，逐个提取rwd文件。

下面的程序就是我提取第一层的程序代码：
Sub SaveAtt()
Set objInbox = Session.GetDefaultFolder(olFolderInbox).Items

objInbox_ItemAdd objInbox

End Sub

Private Sub objInbox_ItemAdd(ByVal Item As Object)

Dim FileName As String
Dim msg
Dim path
wcount = 0

Dim filefolder
filefolder = "D:\temp\"
j = 1

On Error Resume Next

Dim myOlApp As New Outlook.Application
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox)
Set fso = CreateObject("Scripting.FileSystemObject")

MsgBox myFolder.Items.Count

For i = 1 To myFolder.Items.Count

'====获得每个邮件item=================
Set mymailitem = myFolder.Items(i)

For Each att In mymailitem.Attachments
      FileName = Right(att.FileName, 3)
      If FileName = "msg" Then
         path = filefolder & j & att.FileName
         att.SaveAsFile path

         Debug.Print att.FileName
         j = j + 1
      End If
Next

next
End Sub
谢谢大侠的帮助。

aaaaabbbbb · 发表于 2009-9-26 22:02

参考一下这个帖子，最近太忙了，你也是VBA高手，就自己写写，然后跟大家共同分享，好吗？
http://www.outlookcode.com/codedetail.aspx?id=1494

pxpd101 · 发表于 2009-9-27 20:48

原帖由 aaaaabbbbb 于 2009-9-26 22:02 发表
参考一下这个帖子，最近太忙了，你也是VBA高手，就自己写写，然后跟大家共同分享，好吗？
http://www.outlookcode.com/codedetail.aspx?id=1494

谢谢aaaaabbbbb的回复，我正在研究中

pxpd101 · 发表于 2009-10-21 18:14

终于自己完成了，使用2007版中的Namespace.OpenSharedItem完成下一步的工作了！

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

[求助] 寻大侠，打开附件中的附件。