Método Conversation.GetAlwaysMoveToFolder (Outlook)

Retorna um objeto Folder que indica a pasta no repositório de entrega especificado para o qual novos itens que chegarem na conversa sempre serão movidos.

Sintaxe

expression. GetAlwaysMoveToFolder( _Store_ )

expressão Uma variável que representa um objeto "Conversação".

Parâmetros

Valor de retorno

Um objeto de pasta do repositório especificado para o qual todos os novos itens que chegarem na conversa sempre serão movidos.

Comentários

Se o parâmetro Store representar um repositório sem entrega, como um repositório .pst de arquivo morto, o método GetAlwaysMoveToFolder retornará um objeto Folder que se aplica a itens de conversa no repositório de entrega padrão.

Se nenhuma pasta, além da pasta Itens Eliminados , tiver sido especificada para mover sempre itens de conversação para, o método GetAlwaysMoveToFolder devolve Nulo (Nada no Visual Basic).

Exemplo

Os seguintes Microsoft exemplo Visual Basic for Application (VBA) mostra como localizar a pasta na qual os novos itens que chegarem na conversa do primeiro item de email exibido no painel de leitura sempre serão movidos. O exemplo de código, DemoGetAlwaysMoveToFolder, verifica se as conversações estão ativadas no arquivo para o item de correio selecionado, obtém o objeto de conversação desse item de correio se existir uma conversação, utiliza GetAlwaysMoveToFolder para obter a pasta e apresenta o nome da pasta.

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

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.