Método MailItem.Move (Outlook)

Mueve un elemento de Microsoft Outlook a una carpeta nueva.

Sintaxis

expresión. Move( _DestFldr_ )

expresión Variable que representa un objeto MailItem.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
DestFldr	Obligatorio	Folder	Expresión que devuelve un objeto Folder. Carpeta de destino.

Valor devuelto

Valor Object que representa el elemento que se movió a la carpeta designada.

Ejemplo:

En este ejemplo de Visual Basic para Aplicaciones (VBA) se usa GetDefaultFolder para devolver el objeto Folder que representa la carpeta predeterminada. Después, utiliza los métodos Find y FindNext para encontrar todos los mensajes enviados por Dan Wilson y el método Move para moverlos de la carpeta predeterminada Bandeja de entrada a la carpeta de Correo personal. Para ejecutar este ejemplo sin errores, sustituya "Dan Wilson" con el nombre de un remitente válido y asegúrese de que haya una carpeta en la Bandeja de entrada denominada "Correo personal". Tenga en cuenta que myItem se declara como tipo Object por lo que puede representar todos los tipos de elementos de Outlook, incluidos los elementos de solicitud de tarea y de reunión.

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

Vea también

Objeto MailItem

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.