Wie kann ich einen Suchordner erstellen, der mehrere Objekttypen in Outlook 2007 aus einem sekundären Postfach enthält?

1209
EB.

Ich habe meinem Konto ein zusätzliches Postfach hinzugefügt. Ich möchte eine Ansicht erstellen, die der für diesen Benutzer vorhandenen Ansicht "Aufgabenliste" ähnelt. Das heißt, ich möchte einen Suchordner, der dieses Postfach nach Objekten eines beliebigen Typs durchsucht, für den ein Folge-Flag gesetzt ist oder eine Aufgabe ist.

Sie können dies nicht über die Benutzeroberfläche tun. Ich habe das gefunden:

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 

Das funktioniert perfekt - für meine Mailbox. Das heißt, es wird eine Ansicht erstellt, die der gewünschten Listenansicht ähnelt. Es hat jeden Objekttyp mit einer Folgekennzeichnung und Aufgaben. Wenn ich die strS = "'\\Mailbox - Other'"Zeile jedoch kommentiere und ausführen, stürzt Outlook in der Zeile .Save () ab.

Irgendein Rat?

2
Wenn in der anderen Mailbox ein Kran angezeigt wird, wird eine Fehlermeldung angezeigt oder geben Sie weitere Informationen dazu an, was genau passiert. Clare Macrae vor 12 Jahren 0
Es stürzt mit einer Zugriffsverletzung (c0000005) um 0x000479ff ab, während die Zeile .Save () ausgeführt wird. EB. vor 12 Jahren 0

0 Antworten auf die Frage