Es una macro.
Luego con el editor de macros:
Cita: Tools > Macro > Macros, type a new name for your macro in the Macro Name field, and click Create.
Solo tienes que personalizar las variables:
oFolder ==> Bandeja de entrada
Cita: Set oFolder = oNS.GetDefaultFolder(olFolderInbox)
Se aplicará a los mensajes que provengan de mail con el nombre
Report Generator Cita: If .SenderName = "Report Generator" Then
y los guarda los adjuntos en c:\reports\in\ y despues borra los mensajes .delete
salu2