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
| 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
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.