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 'Conversation'.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Repositório | Obrigatório | Store | O repositório onde a pasta para a qual os itens de conversa serão movidos reside. |
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 Excluídos , tiver sido especificada para sempre mover itens de conversa, o método GetAlwaysMoveToFolder retornará Null (Nothing in 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 conversas estão habilitadas no repositório para o item de email selecionado, obtém o objeto de conversa para esse item de email se houver uma conversa, usa GetAlwaysMoveToFolder para obter a pasta e exibe 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
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.