Guardar adjuntos

http://support.microsoft.com/kb/220595/es

Saludos, Palel - [MVP Outlook]
http://www.infonegocio.com/luzylar/informatica.htm
®El Rincón del Navegante - http://www.luzylar.com

*** Consulta en el Foro específico:
Outlook EXPRESS news://msnews.microsoft.com/microso...ookexpress
OUTLOOK de OFFICE news://msnews.microsoft.com/microso...es.outlook
SISTEMA OPERATIVO Windows XP news://msnews.microsoft.com/microso....windowsxp
OFFICE XP news://msnews.microsoft.com/microso...s.officexp
... hay más, busca el que necesites.
_______________________________________________________________________________
"oskar" escribió en el mensaje
news:
| Hola como podria hacer que al abrir outlook me guardara los archivos
| adjuntos de un correo ?
| La idea es como las reglas:
| 1) Ejecutar una regla que me rastree en inbox un correo de una
| persona con un asunto determinado,
| si lo encuentra ...
| 2) que guarde los datos adjunto en un directorio determinado
| 3) y mueva el correo a otra carpeta para no repetir mas la accion.
|
| Tengo este codigo pero no se como llamarlo desde outlook:
|
| Sub SaveAttachments()
| Dim myFileName, myOlApp, myNameSpace, myFolder, myAttachments
| Set myOlApp = CreateObject("Outlook.Application")
| Set myNameSpace = myOlApp.GetNamespace("MAPI")
| Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
| For Each myItem In myFolder.Items
| For Each myAttachment In myItem.Attachments
| myAttachment.SaveAsFile "C:\My Documents\" & myAttachment.FileName
| Next
| myItem.Delete
| Next
| End Sub
|
| Gracias
|