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 "Conversação".

Parâmetros

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.

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 correio apresentado no Painel de Leitura como o item de correio específico e a pasta denominada "1-Referência" na pasta Caixa de Entrada como a pasta para onde mover os itens de conversação. 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

Objeto Conversation

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.