Cómo actualizar los contactos de Outlook con VBS

Visual Basic o VB es un lenguaje de programación que se puede utilizar para controlar los procesos en Outlook. Una lista de contactos de Outlook puede actualizarse automáticamente mediante un script VB.

Instrucciones

1 Abra un editor de Visual Basic.

2 Iniciar un nuevo proyecto en Visual Basic y agregue el código siguiente.

3 Crear una nueva subrutina y añadir las variables para almacenar los datos:

Sub addtoOutlook ()

Dim olkApp como objeto

Dim olkFldr como objeto

Dim olkContact como objeto

myContactList tenue como objetos

olFolderContacts const As Integer = 10

Const olContactItem As Integer = 2

Dim cel como gama

4 Una instancia del objeto de Outlook en Visual Basic:

Establecer olkApp = CreateObject ( "Outlook.Application")

5 Obtener todos los contactos desde Outlook y guardarlos en una variable:

Set olkFldr = olkApp.Session.GetDefaultFolder(olFolderContacts)

6 Recorrer todos los contactos en la lista que haya exportado "myContactList." Si encuentra el nombre de las personas, que se sobreponen a los tres campos con los datos de su lista. Si no es así entonces se creará una nueva entrada y poblar los mismos tres campos.

Para cada celda en myContactList

If cel <> "" Then

On Error Resume Next

Establecer olkContact = Nada

Establecer olkContact = olkFldr.items (cel.Offset (0, 1) & "" & cel)

On Error GoTo 0

Si olkContact es nada Entonces

Establecer olkContact = olkFldr.items.Add (olContactItem)

Terminara si

con olkContact

.lastname = cel

.firstname = cel.Offset (0, 1)

.MobileTelephoneNumber = Cel.Offset (0, 2)

.Salvar

Terminar con

Terminara si

Siguiente

End Sub

La lista de contactos de Outlook ahora se actualiza con la información más reciente contacto de la lista.