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
|

No es bien bien lo que busco.
Me gustatia que no fuera un programa externo en visual basic. Si no una
epecie de macro que se ejecutara cada vez que llega un correo para
guardar si ha llegado un mensaje determinado los ficheros adjuntos que
este mensaje tiene.


Gracias.


Palel ha escrito:

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
|

No me creo que outlook no permita guardar en una ubicación concreta un
fichero
adjunto de un correo automaticamente.
Igual que copia un fichero a una carpeta del correo pues que guarde los
datos adjuntos !!!!

El relidad solo neceisto que ejecute un programita en VB como el que he
descrito ??

Venga expertos una ayudita no ?

Gracias