Método Conversation.SetAlwaysMoveToFolder (Outlook)
Define um objeto Folder que indica a pasta para a qual os itens de conversa existentes e os itens novos que chegarem na conversa sempre serão movidos.
Sintaxe
expression. SetAlwaysMoveToFolder( _MoveToFolder_ , _Store_ )
Expressão Uma variável que representa um objeto 'Conversation'.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| MoveToFolder | Obrigatório | Folder | Especifica a pasta para a qual itens existentes e novos itens que chegarem na conversa sempre serão movidos. |
| Store | Obrigatório | Store | Especifica o repositório que contém a pasta para a qual os itens da conversa serão movidos. |
Comentários
O método SetAlwaysMoveToFolder opera em itens de conversa no repositório de entrega especificado pelo parâmetro Store. Se o parâmetro Store representar um repositório sem entrega, como o repositório .pst de arquivo morto, a ação de mover se aplicará a itens de conversa no repositório de entrega padrão.
Se o parâmetro MoveToFolder especificar uma pasta inválida inexistente, que tiver sido movida ou que seja somente leitura, o Outlook irá gerar um erro.
Para parar a ação de sempre mover para pasta os itens de conversa em um repositório, chame o método StopAlwaysMoveToFolder.
Observação
Definir a pasta Itens Excluídos como o parâmetro MoveToFolder em SetAlwaysMoveToFolder não é equivalente a chamar SetAlwaysDelete no mesmo repositório e conversa. Definindo o parâmetro MoveToFolder nos resultados da pasta Itens excluídos no método GetAlwaysDelete retornar o valor olDoNotDelete.
O evento BeforeItemMove do objeto Folder ocorre quando você chama SetAlwaysMoveToFolder.
Exemplo
O seguinte exemplo Visual Basic for Applications (VBA) mostra como definir a pasta para o qual os itens de conversa existentes e novos itens que chegarem na conversa de um item de email específicos sempre serão movidos. O exemplo de código, DemoSetAlwaysMoveToFolder, escolhe o primeiro item de email exibido no Painel de Leitura como o item de email específico e a pasta chamada "1-Reference" na pasta Caixa de Entrada como a pasta para a qual mover os itens de conversa. DemoSetAlwaysMoveToFolder verifica se as conversas são habilitados na loja para o item de email selecionado, obtém o objeto conversation para esse item de email, se existe uma conversa e usa SetAlwaysMoveToFolder para sempre mover todos os itens de conversa existentes e novos itens que chegarem na conversa na pasta especificada.
Sub DemoSetAlwaysMoveToFolder()
Dim oMail As Outlook.MailItem
Dim oConv As Outlook.Conversation
Dim oStore As Outlook.Store
Dim oFolder As Outlook.Folder
' Obtain a reference to the folder where conversation items will be moved.
Set oFolder = _
Application.Session.GetDefaultFolder(olFolderInbox).Folders("1-Reference")
' Get the Item displayed in the Reading Pane.
Set oMail = ActiveExplorer.Selection(1)
Set oStore = oFolder.Store
If oStore.IsConversationEnabled Then
Set oConv = oMail.GetConversation
If Not (oConv Is Nothing) Then
oConv.SetAlwaysMoveToFolder oFolder, oStore
End If
End If
End Sub
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.