perdon por tardar pero el trabajo me mata... :o))
abri un proyecto y referencia la libreria de outlook, ponete esto en el evento que quieras... podes usarlo desde Vb o desde Vba..


Dim OBjOutlook As Object
Dim ObjMapi As Object
Dim ObjCarpeta As Object
Dim ObjTodoContacto As Object
Dim ObjContacto As Object
Dim Cambio As String, izq As String, med As String, der As String


Set OBjOutlook = CreateObject("Outlook.Application")
Set ObjMapi = OBjOutlook.GetNamespace("MAPI")
Set ObjCarpeta = ObjMapi.GetDefaultFolder(olFolderContacts)
Set ObjTodoContacto = ObjCarpeta.Items
      For Each ObjContacto In ObjTodoContacto
        'mostrar los distintos tipos de telefono
        'BusinessTelephoneNumber
        'Business2TelephoneNumber
        'HomeTelephoneNumber
        'Home2TelephoneNumber
        'PrimaryTelephoneNumber
        'MobileTelephoneNumber
        'hay mas tipos de telefono :o))
         Cambio = ObjContacto.BusinessTelephoneNumber
         'proba aca segun tu formato de lista telefonica
         izq = Left(Cambio, 3)
         medio = Mid(Cambio, 4, 2)
         der = Right(Cambio, 6)
         'para telefono primario comercial 5555555 sin (01)
         ObjContacto.BusinessTelephoneNumber = izq & "." & medio & "." & der
         ObjContacto.Save
      Next
zaluTHH
#<-=LupiYo=-># ( "el resfriau")
----- Original Message -----
From: Alejandro García <agarcia@softhome.net>
To: <vb-esp@ccc.uba.ar>
Sent: Wednesday, October 13, 1999 1:04 PM
Subject: vb-esp : Moficar datos de la Libreta de Direcciones



> Saludos compañeros de Lista
>
> Mi pregunta esta relacionada con la libreta de direcciones de los
programas
> microsoft (Outlook Express, Ofice 2000, etc)
>
> Lo que quiero hacer mediante un programa es modificar los telefonos de los
> contactos de la siguiente manera: 5555555 --> 555.55.55. Seria bastante
> tedioso modificarlos cada una a mano.
>
> El problema es que no se como acceder a los datos de la libreta de
> direcciones.
>
>
> Alejandro García
> agarcia@softhome.net
> Caracas - Venezuela
>
>