Pregunta ¿Cómo puedo crear una carpeta de búsqueda que contenga varios tipos de objetos en Outlook 2007 desde un buzón secundario?


Agregué un buzón adicional a mi cuenta. Quiero crear una vista que sea similar a la vista 'lista de tareas' que existe para ese usuario. Esto significa que quiero una carpeta de búsqueda que busque en ese buzón objetos de cualquier tipo que tengan un indicador de seguimiento establecido o una tarea.

No puedes hacer esto desde la interfaz de usuario. Encontré esto:

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/{00062003-0000-0000-C000-000000000046}/81010003"" <>    2) OR (NOT(""http://schemas.microsoft.com/mapi/proptag/0×10900003"" IS NULL) AND ""http://schemas.microsoft.com/mapi/id/{00062003-0000-0000-C000-000000000046}/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

Esto funciona perfectamente - para mi buzón. Es decir, crea una vista similar a la vista de lista de tareas que quiero. Tiene cada tipo de objeto con un indicador de seguimiento y tareas. Sin embargo, si elimino el comentario strS = "'\\Mailbox - Other'" línea y ejecutarlo, Outlook se bloquea en la línea .Save ().

¿Algún consejo?


2


origen


Cuando las grúas de Outlook en el otro buzón, ¿se muestra algún mensaje de error, o más información que usted nos puede dar, sobre exactamente qué sucede? - Clare Macrae
Se bloquea con una Infracción de acceso (c0000005) en 0x000479ff mientras se ejecuta la línea .Save (). - EB.


Respuestas: