Método MailItem.Move (Outlook)

  • Artigo

Move um item do Microsoft Outlook para uma nova pasta.

Sintaxe

expression. Move( _DestFldr_ )

expressão Uma variável que representa um objeto MailItem.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
DestFldr Obrigatório Folder Uma expressão que retorna um objeto Folder. A pasta de destino.

Valor de retorno

Um valor Object que representa o item removido para a pasta designada.

Exemplo

Este exemplo de Visual Basic for Applications (VBA) usa GetDefaultFolder para retornar o objeto Folder que representa a pasta padrão. Em seguida, ele usa os métodos Localizar e LocalizarNext para encontrar todas as mensagens enviadas por Dan Wilson e usa o método Move para mover todas as mensagens de email enviadas por Dan Wilson da pasta Caixa de Entrada padrão para a pasta Correio Pessoal. Para executar esse exemplo sem nenhum erro, substitua “Davi Martins” por um nome de remetente válido e verifique se há uma pasta na Caixa de Entrada denominada “Email Pessoal”. Observe que myItem é declarado como tipo Objeto para que ele possa representar todos os tipos de itens do Outlook, incluindo solicitação de reunião e itens de solicitação de tarefa.

Sub MoveItems() 
 Dim myNameSpace As Outlook.NameSpace 
 Dim myInbox As Outlook.Folder 
 Dim myDestFolder As Outlook.Folder 
 Dim myItems As Outlook.Items 
 Dim myItem As Object 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) 
 Set myItems = myInbox.Items 
 Set myDestFolder = myInbox.Folders("Personal Mail") 
 Set myItem = myItems.Find("[SenderName] = 'Dan Wilson'") 
 While TypeName(myItem) <> "Nothing" 
 myItem.Move myDestFolder 
 Set myItem = myItems.FindNext 
 Wend 
End Sub

Confira também

Objeto MailItem

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.