Método MailItem.Move (Outlook)

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

Valor de retorno

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

Exemplo

Este exemplo de Visual Basic for Applications (VBA) utiliza GetDefaultFolder para devolver o objeto Pasta que representa a pasta predefinida. Em seguida, utiliza os métodos Find e FindNext para localizar todas as mensagens enviadas por Dan Wilson e utiliza o método Move para mover todas as mensagens de e-mail enviadas por Dan Wilson da pasta Caixa de Entrada predefinida 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”. Tenha em atenção que myItem é declarado como tipo Objeto para que possa representar todos os tipos de itens do Outlook, incluindo itens de pedido de reunião e pedido 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.