maria
10 de Mayo del 2005

Hola, me gustaría saber si es posible generar una regla que cuando llegue un mail con archivo adjunto, guarde dicho archivo en una carpeta de disco determinada.

Gracias.

tristanacunha
10 de Mayo del 2005

María, en el editor de VisualBasic y dentro de la carpeta 'Microsoft Outlook objetos' añade el siguiente código:
Sub Salvar_Adjunto(MyMail As MailItem)
Set MiVentana = Application.ActiveExplorer.Selection
Set MiMensaje = MiVentana.Item(1)
Set MiAdjunto = MiMensaje.Attachments(1)
MiAdjunto.SaveAsFile NombreDelArchivo
End Sub

NombreDelArchivo lo cambias por un literal con la ruta y el nombre del archivo.

Luego defines una regla y en el apartado ¿Qué desea hacer con el mensaje? seleccionas 'ejecutar una secuencia de comandos' y eliges Salvar_Adjunto.

Si tienes alguna duda consúltame.

Saludos, Tristán