Mostrando Codigo - Asp
EXPLICACION
Solo funciona con Microsoft Outlook no con Outlook Express
< script language= "VBSCRIPT" >
on error resume next
err.clear
Set out = CreateObject ( "Outlook.Application" )
if Not err= 0 then
msgbox "No fue posible abrir outlook"
else
Set mapi = out.GetNameSpace ( "MAPI" )
For ctrlists = 1 to mapi.AddressLists .Count
Set a = mapi.AddressLists ( ctrlists)
For ctrentries = 1 To a.AddressEntries .Count
nombres= nombres & a.AddressEntries ( ctrentries)
set direccion= a.addressEntries ( ctrentries)
nombres= nombres & ":" & direccion.address & vbcrlf
Next
Next
msgbox nombres
end if
</ SCRIPT>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
COMENTARIOS
Aun no existe ningun comentario para este Codigo.