12/04/2005, 10:19
|
| | | Fecha de Ingreso: abril-2005
Mensajes: 195
Antigüedad: 20 años Puntos: 0 | |
| Prueba con este codigo:
oOutlook = Createobject("Outlook.Application")
oNameSpace = oOutlook.GetNameSpace("MAPI")
'Con el valor 9 accedemos al calendario
'Con el valor 10 accedemos a los contactos
oContacts = oNameSpace.GetDefaultFolder(9)
For Each oContacts In oContacts.Items
With oContact
cFirst = oContact.FirstName
cLast = .LastName
cPhone = oContact.PrimaryTelephoneNumber
response.Write("cFirst = " + cFirst + "<br>")
response.Write("cLast = " + cLast + "<br>")
response.Write("cPhone = " + cPhone + "<br>")
'Insert Into ContactInfo Values (cFirst, cLast, cPhone)
end with
next
y ya me diras que tal....
Saludos |