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