outlook搜索文件夹

grassking · 发表于 2010-9-8 23:04

由于我邮箱里文件夹分的比较多，想写一个VBA脚本来实现搜索到我想找的文件夹的功能。具体的方法是：想在工具栏放一个搜索框，当在搜索框输入内容后，会根据输入的内容找到我的文件夹。请问这个可以实现吗？或者有其他方法可以实现吗？

dsd999 · 发表于 2010-9-9 09:08

能实现，用VBA。

grassking · 发表于 2010-9-9 09:47

原帖由 dsd999 于 2010-9-9 09:08 发表
能实现，用VBA。

能给点提示么，我是新手，还不太会用VBA，谢谢了。

dsd999 · 发表于 2010-9-9 14:51

在outlook 的VBA界面把这个导入，然后执行addTotalButton

在输入框输入要查找的名字，按回车。

grassking · 发表于 2010-9-9 15:11

原帖由 dsd999 于 2010-9-9 14:51 发表
在outlook 的VBA界面把这个导入，然后执行addTotalButton

在输入框输入要查找的名字，按回车。

非常感谢，Inbox下的一级文件夹可以搜索到了，但是二级文件夹还不行，我先去研究一下代码，不懂再请教您。

dsd999 · 发表于 2010-9-10 09:17

好的，不明白的问我。

grassking · 发表于 2010-9-10 19:33

原帖由 dsd999 于 2010-9-10 09:17 发表
好的，不明白的问我。

我将搜索函数做了一些更改，通过一个递归调用将所有的文件夹都搜索出来，代码如下：
Sub ff()
Dim dd As String
dd = Outlook.ActiveExplorer.CommandBars("ExcelClub").Controls(1).text
Dim currentf As folder
Set currentf = Application.ActiveExplorer.CurrentFolder
Call fsubf(currentf.Folders, dd)
End Sub

Public Sub fsubf(parentf As Folders, text As String)
If parentf.Class = olFolders Then
      For n = 1 To parentf.Count
         Debug.Print parentf(n)
         If InStr(1, parentf(n), text) <> 0 Then
            Application.ActiveExplorer.SelectFolder (parentf(n))
            'Exit Sub
         End If
         Call fsubf(parentf(n).Folders, text)
      Next
End If
End Sub

接下来想请教您的是，（1）输入框的onaction事件是点回车时发生的，有没有一个事件是当输入一个字母就发生？我现在想实现边输入遍搜索，动态的将我输入的内容有关的文件夹显示出来。
（2）将搜索到的文件夹全部显示出来的话，用什么组件比较好啊，我对outlook里的组件和一些API都还不是太熟悉，我想到的一个实现方案是，将搜索到的文件夹自动填充到一个dropdown list里面，当选择某个文件夹时就将这个文件夹打开。请问您有比较好的显示组件吗？
（3）请问有哪些地方可以找到Outlook vba的api吗？我只能找到对象模型，对那些API不知道该怎么去学。
谢谢您的指导。

dsd999 · 发表于 2010-9-13 09:30

www.outlookcode.com

这个网站上的资源很多。

grassking · 发表于 2010-9-15 14:26

原帖由 dsd999 于 2010-9-13 09:30 发表
 www.outlookcode.com

这个网站上的资源很多。

谢谢，这个网站我看了，只是全是英文学起来有点慢，我那些功能基本上全部都实现了。Thanks for your prior work.

dsd999 · 发表于 2010-9-15 14:32

原帖由 grassking 于 2010-9-15 14:26 发表

谢谢，这个网站我看了，只是全是英文学起来有点慢，我那些功能基本上全部都实现了。Thanks for your prior work.

最好能给大家分享分享，谢谢。

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

[求助] outlook搜索文件夹