Imprimir página | Cerrar ventana

Macro Outlook para copiar correos a carpeta disco

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Otros Productos Microsoft
Descripción del foro: PowerPoint, Navision, Visio, FrontPage, InfoPath etc
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86987
Fecha de impresión: 26/Marzo/2026 a las 17:28


Tema: Macro Outlook para copiar correos a carpeta disco
Publicado por: jonas
Asunto: Macro Outlook para copiar correos a carpeta disco
Fecha de publicación: 25/Septiembre/2024 a las 07:50
Me gustaría saber si hay alguna forma para coger los correos de Outllok que se seleccionen o que tengan un determinado campo en el asunto y copiarlos a una carpeta de red. 
No me refiero a copiarlos dentro de un PST... sino a hacerlo a una carpeta de C o de red de forma que se pueda compartir el contenido.



Respuestas:
Publicado por: Mihura
Fecha de publicación: 25/Septiembre/2024 a las 21:47
Poderse se puede. Ahora bien, se necesita un nivel muy alto de VBA.

¿Has probado algo? ¿qué has intentado?


-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: jonas
Fecha de publicación: 27/Septiembre/2024 a las 08:54
Pues no tengo experiencia con macros de Outlook, pero en Excel bastante...
No sé si hay alguna forma de tener alguna parte de codigo o como hacerlo... y en base a eso igual me puedo pelera.


Publicado por: Mihura
Fecha de publicación: 27/Septiembre/2024 a las 09:12
Pues ejemplos hay, es cuestión de encontrarlos con Sangugel ... y en Outlook como en Access con ALT+F11 estás en la zona de VBA y ahí con F1 está toda la información, otra cosa es irla interpretando.

De todas formas, en este foro y en el Offline hay algunos ejemplos de tratamiento de Outlook que pueden empezar a enseñarte el camino.


-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: jonas
Fecha de publicación: 27/Septiembre/2024 a las 16:40
Gracias Mihura!
He mirado cosas y demás, y para hacer estilo "reglas" es OK... puedo moverlo a diferentes capretas del PST en cuestion, pero lo que quiero es hacerlo a una carpeta de red. Es decir... una carpeta en C y qeu se guarde en formato *.msg.



Publicado por: Mihura
Fecha de publicación: 27/Septiembre/2024 a las 16:49
Dices que es lo que has hecho, pero no lo pones ... con lo que poco podemos ayudar.

Un item de correo tiene varios métodos, uno de ellos es SaveAs, míratelo con cariño Tongue.




-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: lbauluz
Fecha de publicación: 02/Octubre/2024 a las 10:55
Te pongo un código que hace básicamente lo que quieres:

Option Explicit
Sub Ejemplo()
    Dim Item As Outlook.MailItem
    For Each Item In Application.ActiveExplorer.Selection
        Item.SaveAs "C:\Temp\" & Item.Subject & ".msg", olMSG
    Next
    Set Item = Nothing
End Sub



Con condiciones, claro.
La primera, tienes que tener seleccionados los correos que quieres copiar o fallará.
La segunda, comprueba la existencia de caracteres prohibidos en el nombre, por ejemplo los dos puntos, que es muy típico cuando tienes un "Re: asunto", eso te fallará, no se permiten los dos puntos en un nombre.

Ahora te toca a tí buscar qué correos quieres escoger de forma automática.
También te toca decidir en qué evento quieres ponerlo.
Y hacer un control de errores. (por ejemplo, que no hayas seleccionado ningún correo)

Un saludo.

Luis


-------------
El Búho es un pajarraco



Imprimir página | Cerrar ventana