Outlook中用VBA获取指定文件夹里的邮件对象

yanfeiliuhen1

在“收件箱”下有多级目录，如截图所示（其中，a、b、c、b1、b2、bb1、bb2、bb3皆为目录），，如何在outlook打开的时候获取“bb2"这个文件夹(目录）对象（bb2目录下有很多的邮件）。。

能否用 绝对路径 来定位"bb2"这个目录（注意：因为“bb2"这个目录与“收件箱”相隔几个目录是没法左右的，所以我想是否可以用绝对路径来定位“bb2”这个目录？），而后获取“bb2"邮件对象

求高手指点！！

闻启学

可以的   获得“bb2"这个文件夹(目录）下的邮件

但是 所以我想是否可以用绝对路径来定位“bb2”这个目录 这个不懂什么意思

dannycyf

in OL 2007:
Sub findOBinSpec()
    Dim NS As Outlook.NameSpace
    Dim FD As MAPIFolder
    Dim ITM As Object

    Set NS = Session.Application.GetNamespace("MAPI")
    Set FD = NS.Folders("Personal Folder").Folders("Inbox").Folders("b").Folders("b1").Folders("bb2")

    For Each ITM In FD.Items
        MsgBox (ITM.Subject)
    Next

End Sub