Visual Basic para Aplicaciones - Como Coger de un formulario outlook los datos

Life is soft - evento anual de software empresarial
 
Vista:

Como Coger de un formulario outlook los datos

Publicado por Rudi Mann Román (1 intervención) el 19/07/2001 12:52:33
Como puedo coger los datos de un formulario diseñado por mi mismo en Outlook2000 ,necesito poder capturar los datos de mis propios campos creados, he introducirlos en una base de datos.

Muy agradecido al q me pueda ayudar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como Coger de un formulario outlook los datos

Publicado por Mv (1 intervención) el 19/07/2001 19:45:43
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar