Как я могу создать папку поиска, которая содержит несколько типов объектов в Outlook 2007 из дополнительного почтового ящика?

916
EB.

Я добавил дополнительный почтовый ящик в свой аккаунт. Я хочу создать представление, аналогичное представлению «список дел», которое существует для этого пользователя. Это означает, что мне нужна папка поиска, которая ищет в этом почтовом ящике объекты любого типа, для которых установлен флаг отслеживания или является задачей.

Вы не можете сделать это из пользовательского интерфейса. Я нашел это:

Sub CreateNewSearchFolder() Set MyOutlookApplication = Outlook.Application SearchSubFolders = True Set MapiNamespace = Application.GetNamespace("MAPI") Set TasksFolder = MapiNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderTasks).Parent strS = "'" & TasksFolder.FolderPath & "'"  'strS = "'\\Mailbox - Other'" Dim folderName As String folderName = InputBox("Name of new search folder?:", "Folder Name", "") Dim objSch As Search  Dim taskFilter As String taskFilter = "(""http://schemas.microsoft.com/mapi/proptag/0x0e05001f""= 'Tasks' AND ""http://schemas.microsoft.com/mapi/id//81010003"" <> 2) OR (NOT(""http://schemas.microsoft.com/mapi/proptag/0×10900003"" IS NULL) AND ""http://schemas.microsoft.com/mapi/id//81010003"" <> 2)" Dim strTag As String strTag = "RecurSearch"   Dim fupFilter As String fupFilter = "(NOT(""urn:schemas:httpmail:messageflag"" IS NULL))"   Set objSch = Application.AdvancedSearch(Scope:=strS, _ Filter:=taskFilter & " OR " + fupFilter + "", _ SearchSubFolders:=True, Tag:=strTag) objSch.Save (folderName)  End Sub

Это прекрасно работает - для моего почтового ящика. То есть он создает представление, похожее на представление списка дел, которое я хочу. Он имеет каждый тип объекта с последующим флагом и задачами. Тем не менее, если я раскомментирую strS = "'\\Mailbox - Other'"строку и запускаю ее, Outlook вылетает в строке .Save ().

Любой совет?

2
Когда Outlook подключается к другому почтовому ящику, отображается ли какое-либо сообщение об ошибке или какая-либо дополнительная информация, которую вы можете нам сообщить, о том, что именно происходит? Clare Macrae 12 лет назад 0
Сбой с нарушением прав доступа (c0000005) в 0x000479ff при выполнении строки .Save (). EB. 12 лет назад 0

0 ответов на вопрос

Похожие вопросы