本帖最后由 dannycyf 于 2015-2-13 11:30 编辑
海尔拾壹11 发表于 2015-1-14 10:33 
楼主给个方案吧，多谢。
大致思路如下：
1，其实如果仅仅是需要将含有特定标题信息的邮件找出来，你完全可以通过Outlook的搜索夹定义来完成，以Outlook 2007为例：
在左侧邮件文件夹中找到“搜索文件夹”，右键选择“新建搜索文件夹”，再选择“包含特定词语的邮件”等完成设置，之后Outlook会自动创建符合条件的搜索文件夹（“包含xxx”），内含所有符合要求的邮件列表。
注意，这个搜索条件将标题中含有特定词语的邮件，以及正文中含有特定词语的邮件都列出来！
2，如果对此不满意，还可以设置如下：
“新建搜索文件夹” -- “创建自定义搜索文件夹”--“选择”--设定好“名称”和“浏览”后，在“条件”中选择“高级”--“字段”--“常用字段”--“主题”--将“条件”设置为“包含”或者其它，在“值”栏，设置你要寻找的特定标题信息后，选择“添加到列表”，一路“确定”即可
3，如果，找到这些邮件并不是最终目的，而是要进一步处理，那么就只能通过程序来完成，我有代码如下：
Sub FindSubJ() DimSession As RDOSession DimItem As RDOMail DimFolder As RDOFolder Dimsf sf ="AAA" ‘AAA is supposed the search folder which inside you want todeal with specified email SetSession = CreateObject("Redemption.RDOSession") ‘you must installRedemption.dll Session.Logon SetFolder = Session.Stores.DefaultStore.SearchRootFolder.Folders(sf) ForEach Item In Folder.Items ‘dowhatever you want here Next SetItem = Nothing End Sub
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2014-9-3 23:10
楼主
