editor de Visual Basic
Mostrar más instrucciones
1
Abra un editor de Visual Basic .
2
Inicie un nuevo proyecto . en VB y agregue el código siguiente
3
Crear un nuevo subprograma y añadir las variables para almacenar los datos :
Sub addtoOutlook ()
Dim olkApp As Object
olkFldr Dim As Object
olkContact Dim As Object
myContactList Dim como objeto
olFolderContacts Const As Integer = 10
< p> Const olContactItem As Integer = 2
cel As Range
4
una instancia del objeto de Outlook en Visual Basic :
Set olkApp = CreateObject ( " outlook. aplicación " )
5
Obtén todos los contactos de Outlook y los almacena en una variable :
Set olkFldr = olkApp.Session.GetDefaultFolder ( olFolderContacts )
6
bucle a través de todos los contactos en la lista que ha exportado " myContactList . " Si encuentra el nombre de la persona , que se sobreponen a los tres campos con los datos de su lista. Si no lo hace , entonces se creará una nueva entrada y rellenar los mismos tres campos.
Para cada celda myContactList
Si cel < > "" Entonces
< p > On Error Resume Next
olkContact Set = Nothing
Set olkContact = olkFldr.items ( cel.Offset ( 0 , 1 ) & " " & cel )
On Error GoTo 0
Si olkContact es nada entonces
Set olkContact = olkFldr.items.Add ( olContactItem )
End If
olkContact
< p> . apellido = cel
. nombre = cel.Offset ( 0 , 1) spanish
. MobileTelephoneNumber cel.Offset = ( 0 , 2 )
. Guardar
extremo con
End If
Siguiente
End Sub
tu lista de contactos de Outlook ahora será actualizado con la última información de contacto de su lista.