Salu2!!
quieres coger los datos desde el outlok y llevarlos a una base de datos ,pero ...
Todos los datos o solo alguno por que cambia mucho.
-Si es alguno en concreto 1º hay que buscarlo y después cojer sus datos:
-ejemplillo para los contactos de outlook:
(espero que te sirva de algo y si no igual te guia)
Mi mail es
[email protected] ;-) (por si quieres código o argo)
Dim apli_outlook As New Outlook.Application
'He insertado las librerias de outlook 9.0 en referencias
Dim nsoutlook As NameSpace
Dim mfcontactos As MAPIFolder
Dim ficha
Dim fichas
Dim itm
res = "Contactos"
'Abrimos la carpeta de outlook que tengamos para los contactos
Set nsoutlook = apli_outlook.GetNamespace("MAPI")
Set mfcontactos = nsoutlook.Folders("Carpetas personales").Folders(res)
Set fichas = mfcontactos.Items
'lo buscamos
Set ficha = fichas.Restrict("[Fullname] =" & " ' "& nom_rep & " ' ")
'nom_rep es una variable que contiene el nombre del contacto
If Not (ficha Is Nothing) ThenIf res = vbYes Then
For Each itm In ficha
'Apuntamos con la variable al inspector q tiene el elemento activo
Set objinspector = itm.GetInspector
'Nos deplazamos por el objeto hasta los controles q queramos
Set objpages = objinspector.ModifiedFormPages
Set objpage = objpages("General") 'ficha "general"
Set objControls = objpage.Controls
Set objControl(1) = objControls("txtexp")
Set objControl(2) = objControls("Fullname")
Set objControl%2