分享+求助 outlook2003 VBA问题（关于搜索文件夹）

seturyo

outlook2003 VBA问题（关于搜索文件夹）

    Set otlk = New Outlook.Application
    Set nmspc = otlk.GetNamespace("MAPI")
    Set objFolder = nmspc.GetDefaultFolder(olFolderDrafts)
    Set myNewFolder = objFolder.Folders("88")

上面代码，返回名为[草稿]下“88”的文件夹。和各位分享一下。

想指定[搜索文件夹]下的某文件夹（如未读邮件文件夹）该如何写代码？

主要想显示未读邮件数。
谢谢！！

dsd999

去找找我发的帖子看能不能帮到你，

不行的话再来提问。

seturyo

原帖由 dsd999 于 2010-9-3 13:43 发表
去找找我发的帖子看能不能帮到你，

不行的话再来提问。

提问之前[VBA帖子集中营]找了一下，没有适用的。请给解答阿

seturyo

原帖由 dsd999 于 2010-9-3 13:43 发表
去找找我发的帖子看能不能帮到你，

不行的话再来提问。

你的贴子找了下，好得很（支持你做BZ）。但没有能解决我的问题的。也可能我是初学者没领会吧。请给解答一下阿。

dsd999

你的要求就是 “得到某文件下下未读邮件的数量”，是不是？

seturyo

outlook2003 VBA问题（关于搜索文件夹）

    Set otlk = New Outlook.Application
    Set nmspc = otlk.GetNamespace("MAPI")
    Set objFolder = nmspc.GetDefaultFolder(olFolderDrafts)
    Set myNewFolder = objFolder.Folders("88")

上面代码，返回名为[草稿]下“88”的文件夹。和各位分享一下。

想指定[搜索文件夹]下的某文件夹（如未读邮件文件夹）该如何写代码？

主要想显示未读邮件数。
谢谢！！

dsd999

原帖由 seturyo 于 2010-9-3 16:42 发表
outlook2003 VBA问题（关于搜索文件夹）

    Set otlk = New Outlook.Application
    Set nmspc = otlk.GetNamespace("MAPI")
    Set objFolder = nmspc.GetDefaultFolder(olFolderDrafts)
    Set myNewFol ...

我在5楼说的对不对啊

seturyo

原帖由 dsd999 于 2010-9-3 17:03 发表


我在5楼说的对不对啊

是这个问题，让我再细细地说一下：

问题1、得到某文件下未读邮件的数量
这个问题我是用下面代码可以初步实现。
    Set otlk = New Outlook.Application
    Set nmspc = otlk.GetNamespace("MAPI")
    Set objFolder = nmspc.GetDefaultFolder(olFolderDrafts)
    Set myNewFolder = objFolder.Folders("88")
但，[搜索文件夹] 下未读邮件的数量没找到办法得到。

问题2、不想用MsgBox来显示。
因为不按MsgBox的确认按钮，其他对Outlook的任何操作都作不了。
能否显示到工具栏里？

问题3、能否动态的显示未读邮件的数量
当显示了未读邮件数后，如果又受到了新邮件，能否直接显示出最新未读邮件数。

dsd999

outlook本身就能显示未读邮件的数量。

不能满足你的需求吗？

seturyo

上面这种显示会占用左边很大一部分的显示屏。我想用最小的方式显示一些我想要的东西。