Store (objeto)

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Representa un archivo en el equipo local o unidad de red que almacena mensajes de correo electrónico y otros elementos de una cuenta del perfil actual.

Información de la versión

Versión agregada: Outlook 2007

Notas

Un perfil define una o varias cuentas de correo electrónico, y cada una de ellas se asocia a un servidor de un tipo concreto. Si utiliza un servidor de Exchange, puede tener un almacén en el servidor, en una carpeta pública de Exchange, en un archivo de carpetas personales (.pst) o en un archivo de carpetas sin conexión (.ost). Para los servidores de correo electrónico POP3, IMAP o HTTP, los almacenes son archivos .pst.

Puede usar los objetos Stores y Store para enumerar todas la carpetas y las carpetas de búsqueda de todos los almacenes de la sesión actual. Puesto que para obtener la carpeta raíz o las carpetas de búsqueda de un almacén es necesario abrir el almacén, y abrir un almacén constituye una sobrecarga para el rendimiento, puede comprobar la propiedad Store.IsOpen antes de decidirse a realizar esta operación.

Si utiliza un servidor de Exchange, puede tener acceso a otras propiedades Store explícitas integradas para características de almacén como ExchangeStoreType, IsCachedExchange y IsDataFileStore. Utilice el objeto PropertyAccessor devuelto por Store.PropertyAccessor para obtener acceso a otras propiedades de almacén no expuestas en el modelo de objetos de Outlook.

Para obtener más información sobre cómo almacenar elementos de Outlook en carpetas y almacenes, consulte Storing Outlook Items.

Ejemplo

El siguiente ejemplo de código en Microsoft Visual Basic para Aplicaciones (VBA) enumera todas las carpetas de todos los almacenes de una sesión:

Sub EnumerateFoldersInStores()
    Dim colStores As Outlook.Stores
    Dim oStore As Outlook.Store
    Dim oRoot As Outlook.Folder
    
    On Error Resume Next
    Set colStores = Application.Session.Stores
    For Each oStore In colStores
        Set oRoot = oStore.GetRootFolder
        Debug.Print (oRoot.FolderPath)
        EnumerateFolders oRoot
    Next
End Sub

Private Sub EnumerateFolders(ByVal oFolder As Outlook.Folder)
    Dim folders As Outlook.folders
    Dim Folder As Outlook.Folder
    Dim foldercount As Integer
    
    On Error Resume Next
    Set folders = oFolder.folders
    foldercount = folders.Count
    'Check if there are any folders below oFolder
    If foldercount Then
        For Each Folder In folders
            Debug.Print (Folder.FolderPath)
            EnumerateFolders Folder
        Next
    End If
End Sub

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.