（高手请进）可否实现下载收件箱下的某个文件夹内的附件

laoxia863 · 发表于 2009-6-1 20:25

现在可以实现EXCEL自动下载OUTLOOK收件箱内邮件的附件，但因邮件太多下载及搜索的速度太慢，不知可否实现下载收件箱内某个指定文件夹内邮件的附件呢，谢谢了。

[ 本帖最后由 laoxia863 于 2009-6-1 21:57 编辑 ]

aaaaabbbbb · 发表于 2009-6-1 23:38

可以的。请参考本版置顶的VBA集中营中的相关帖子。

laoxia863 · 发表于 2009-6-2 07:42

我看了，但都是只下载收件箱里的附件，不是下载其它文件夹的附件，

  收件箱
   |____中转

我是想将我要下载中转文件夹内的邮件,

  可能是我的表达不够清楚,谢谢!

aaaaabbbbb · 发表于 2009-6-2 23:59

是的，可以改一下代码将Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox)改成
Set fldFolder = nmsName.GetDefaultFolder(olFolderInbox).Folders("中转")

AZA · 发表于 2009-6-6 21:19

下面的代码比较通用--不管是平时用来收邮件的文件夹还是用来存储的个人文件夹。
Dim myolapp As New Outlook.Application
Set myNameSpace = myolapp.GetNamespace("MAPI")
= myNameSpace.Folders.Item(顶层文件夹名).Folders(第二层文件夹名) '如果需要的话，还可以在后面加多几个Folders(第N层文件夹).

laoxia863 · 发表于 2009-6-25 22:55

谢谢指点！

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

[求助] （高手请进）可否实现下载收件箱下的某个文件夹内的附件