Vba 创建搜索文件夹并访问ReplyRecipients
我正在尝试在Outlook-2010中创建一个搜索文件夹,表示与特定电子邮件地址有关的所有邮件项 即,将电子邮件地址设置为SenderEmailAddress或Sender或其中一个收件人或一个ReplyRecipients的邮件项目 据我所知,我无法使用Application.AdavancedSearch方法和DASL筛选器执行此操作,因为无法访问收件人或回复收件人 我尝试使用赎回搜索对象设置限制:Vba 创建搜索文件夹并访问ReplyRecipients,vba,email,outlook,outlook-redemption,Vba,Email,Outlook,Outlook Redemption,我正在尝试在Outlook-2010中创建一个搜索文件夹,表示与特定电子邮件地址有关的所有邮件项 即,将电子邮件地址设置为SenderEmailAddress或Sender或其中一个收件人或一个ReplyRecipients的邮件项目 据我所知,我无法使用Application.AdavancedSearch方法和DASL筛选器执行此操作,因为无法访问收件人或回复收件人 我尝试使用赎回搜索对象设置限制: Set Store = RDSessoin.Stores.DefaultStore Set
Set Store = RDSessoin.Stores.DefaultStore
Set Searches = Store.Searches
Set Folder = Store.IPMRootFolder
Addr = "123@example.com" 'the email being searched
SQL = "(SenderEmailAddress LIKE '%" & Addr & "%') OR " & _
"(Recipients LIKE '%" & Addr & "%')"
Set NewSearch = Searches.AddCustom(Addr, strSQL, Folder)
它可以工作,但不包括ReplyRecipients和发件人条件
当我试图将它们添加到限制中时
SQL = "(SenderEmailAddress LIKE '%" & Addr & "%') OR " & _
"(Recipients LIKE '%" & Addr & "%') OR " & _
"(ReplyRecipients LIKE '%" & Addr & "%') OR " & _
"(Sender LIKE '%" & Addr & "%')"
出现“未知属性名称”错误
正确的限制语法是什么?有没有其他方法来创建这样的搜索文件夹?您不能使用
ReplyRecipients
,因为它是包含条目ID的二进制属性(没有太多用途),但您可以改为使用ReplyRecipientNames
但显示的姓名和电子邮件地址通常不一样……是的,但这是你能做的最好的。电子邮件地址(如果是一次性SMTP条目id)仅在保存条目id的二进制属性中可用。因此,绝对无法在Outlook中创建所需的搜索文件夹?正确。您将无法搜索ReplyRecipients