Visual Basic - Programar para Outlook

Buenos días,

Estoy haciendo un módulo que desde Outlook recorra la bandeja de entrada y
elementos enviados y vaya guardando todos los correos que encuentra en ellas
en una ruta determinada del disco duro, por ejemplo:

c:\OutlookGuardado\[email protected]
c:\OutlookGuardado\[email protected]\recibidos\
c:\OutlookGuardado\[email protected]\enviados\
c:\OutlookGuardado\[email protected]
c:\OutlookGuardado\[email protected]
c:\OutlookGuardado\[email protected]

Y a la vez, que los vaya borrando de Outlook. Aunque en Outlook se
gestionen varias cuentas de correo a la vez, da igual, como los coge la
misma persona, lo quiere tener unificado, independientemente de la cuenta
que reciba o envíe los correos.

La verdad es que no sé muy bien por dónde empezar, así que cualquier
orientación será bien recibida :) Muchas gracias por adelantado,

Un saludo,

Eva

No se si queres usar Outlook o Outlook Express, si es el primero esta es una forma de recorrer la bandeja de entrada, otra es con MAPI, por lo que veo no se si queres recorrer solamente la bandeja de entrada o también la de elementos enviados. Fijate si te sirve:

Dim objOutlook As Outlook.Application, objInbox As Outlook.MAPIFolder, _
objMailItem As Outlook.MailItem

Set objOutlook = New Outlook.Application

Set objInbox = objOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

For Each objMailItem In objInbox.Items
objMailItem.SaveAs App.Path & "\OutlookGuardado\" & objMailItem.SenderName & "\" & objMailItem.EntryID, olMSG
objMailItem.Delete
Next

objOutlook.Quit

Hola Cecilia, a ver si me puedes echar una manita, estoy ya desesperada. Estoy realizando una aplicación y necesito, por un lado importar la configuración de las cuentas de correo de Outlook y Outlook Express, y por el otro la libreta de direcciones.
Podrías ayudarme, te lo agradecería enormemente.

Muchas gracias y un saludo.

Buenos días Cecilia,

Lo primero, muchas gracias por tu ayuda :).

He estado probando el código, pero en la linea del .SaveAs no me reconoce el app.path como un objeto, y si lo sustituyo y pongo "c:\OutlookGuardado\" & ... me dice que "Error interno de la aplicación"

Un saludo,

Eva