Método Conversation.GetAlwaysMoveToFolder (Outlook)
Devuelve un objeto Folder que indica la carpeta en el almacén de entrega especificado a la cual se mueven siempre los elementos nuevos que entran en la conversación.
Sintaxis
expresión. GetAlwaysMoveToFolder( _Store_ )
Expresión Variable que representa un objeto "Conversation".
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Almacén | Obligatorio | Store | El almacén donde reside la carpeta a la cual se mueven los elementos de la conversación. |
Valor devuelto
Un objeto Folder en el almacén especificado a la que se mueven todos los elementos nuevos que entran en la conversación.
Comentarios
Si el parámetro Store representa un almacén sin entrega, como un almacén de archivos .pst, el método GetAlwaysMoveToFolder devuelve un objeto Folder que se aplica a los elementos de la conversación en el almacén de entrega predeterminado.
Si no se ha especificado ninguna carpeta que no sea la carpeta Elementos eliminados para mover siempre elementos de conversación, el método GetAlwaysMoveToFolder devuelve Null (Nothing en Visual Basic).
Ejemplo:
El siguiente ejemplo de Microsoft Visual Basic para aplicaciones (VBA) se muestra cómo buscar la carpeta en la que se mueven los elementos nuevos que entran en la conversación del primer elemento de correo que se muestra en el panel de lectura. El ejemplo de código, DemoGetAlwaysMoveToFolder, comprueba que las conversaciones están habilitadas en el almacén para el elemento de correo seleccionado, obtiene el objeto de conversación para ese elemento de correo si existe una conversación, usa GetAlwaysMoveToFolder para obtener la carpeta y muestra el nombre de la carpeta.
Sub DemoGetAlwaysMoveToFolder()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
' Get Item displayed in Reading Pane.
Set oMail = ActiveExplorer.Selection(1)
Set oStore = oMail.Parent.Store
If oStore.IsConversationEnabled Then
Set oConv = oMail.GetConversation
If Not (oConv Is Nothing) Then
Dim oFolder As Outlook.folder
Set oFolder = _
oConv.GetAlwaysMoveToFolder(oStore)
If Not (oFolder Is Nothing) Then
Debug.Print "MoveToFolder: " & oFolder.name
Else
Debug.Print "MoveToFolder action not set"
End If
End If
End If
End Sub
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.