搜索辅助 Outlook 帐户收件箱 [重复]答案

【问题标题】：Searching Secondary Outlook Account Inbox [duplicate]搜索辅助 Outlook 帐户收件箱 [重复]
【发布时间】：2016-07-15 23:30:35
【问题描述】：

我正在努力自动执行一项重复性任务。

在电子邮件收件箱（不是主要 Outlook 帐户）中搜索主题包含：“Acting / Additional”的项目。

Sub SrchRF4AAABonuses()
Dim myOlApp As New Outlook.Application
Dim objNamespace As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Dim filteredItems As Outlook.Items
Dim itm As Object
Dim Found As Boolean
Dim strFilter As String

Set objNamespace = myOlApp.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)
strFilter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " like '%Acting / Additional%'"

Set filteredItems = objFolder.Items.Restrict(strFilter)

If filteredItems.Count = 0 Then
Debug.Print "No emails found"
Found = False
Else
Found = True
' this loop is optional, it displays the list of emails by subject.
For Each itm In filteredItems
 Debug.Print itm.Subject
Next
End If ...

....

上面的代码搜索我的默认电子邮件（例如 jsmith@example.com），但是，我有一个名为 Retail Finance 的辅助电子邮件 (rfin@example.com)，我想搜索那个 e - 邮件地址收件箱。我怎样才能修改我的代码来完成这个？

我是 Outlook VBA 的新手，如果这是基本知识，请见谅。

【问题讨论】：

标签： vba outlook

【解决方案1】：

如果这是一个委托 Exchange 邮箱，请使用 Namespace.GetSharedDefaultFolder 打开它。如果它只是您当前资料中的另一家商店，请在 Namespace.Stores 集合中找到该商店，然后致电 Store.GetDefaultFolder。

【讨论】：

如何实现这些？当我尝试：Dim objNamespace As Outlook.NameSpace Set objNamespace = myOlApp.NameSpace.GetSharedDefaultFolder 我得到：运行时错误“438”对象不支持此属性或方法。
您需要 myOlApp.GetNameSpace("MAPI").GetSharedDefaultFolder 。传递 Namespace.CreateRecipient 返回的 Recipient 对象。

【解决方案2】：

这段代码完成了任务：

Sub Search_Inbox()

Dim objNamespace As Outlook.NameSpace
Dim olShareName As Outlook.Recipient
Dim olShareInbox As Outlook.Folder
Dim objFolder As Outlook.MAPIFolder
Dim filteredItems As Outlook.Items
Dim itm As Object
Dim Found As Boolean
Dim strFilter As String


Set objNamespace = Application.GetNamespace("MAPI")
Set olShareName = objNamespace.CreateRecipient("rfin@example.com")   'address

Set objFolder = objNamespace.GetSharedDefaultFolder(olShareName, olFolderInbox)


strFilter = "@SQL=" & Chr(34) & "urn:schemas:httpmail:subject" & Chr(34) & " like '%Acting / Additional%'"

Set filteredItems = objFolder.Items.Restrict(strFilter)

If filteredItems.Count = 0 Then
    Debug.Print "No emails found"
    Found = False

【讨论】：