Cómo mover un correo electrónico a otra carpeta con CDO

CDO significa " Collaboration Data Objects. " Desarrollado por Microsoft , esta tecnología está diseñada para hacer más fácil para crear aplicaciones de mensajería. El objeto " mensaje" en CDO proporciona mecanismos para copiar, eliminar y mover mensajes de correo electrónico . El objeto de mensaje tiene un método llamado " MoveTo " que le permite mover un mensaje de correo electrónico de una carpeta a otra . Tenga en cuenta que debe tener derechos administrativos en el equipo para realizar esta tarea. Instrucciones
1

inicie sesión en su equipo utilizando el nombre de usuario y la contraseña del administrador .

2 Haga clic en el menú Inicio ( el botón de Windows, el logotipo en la parte inferior izquierda - lado de la pantalla) y seleccione " Todos los programas". Haga clic en " Microsoft Visual Basic . "
3

Escriba el siguiente comando:

Set CdoMessage2 = CdoMessage.MoveTo ( folderID [ , StoreID ] )

el " folderID " es una cadena que identifica la carpeta en la que el mensaje se va a mover , mientras que el " StoreID " es una cadena que identifica el almacén de mensajes que contiene la carpeta de destino .
4

Pulse " Enter " para ejecutar el comando .
5

Cerrar Visual Basic después de que el mensaje de correo electrónico se ha movido.