Cómo importar contactos de Outlook en el cuadro combinado

Importar contactos de Outlook a un control de "cuadro combinado" en su aplicación de base de datos Microsoft Access se logra fácilmente utilizando Visual Basic para aplicaciones, o VBA, un lenguaje de programación utilizado para automatizar los procesos en las aplicaciones de Microsoft Office. Puede hacer referencia a la biblioteca de objetos de Microsoft Outlook para obtener acceso a la carpeta de contactos de Outlook. Este proceso puede ser útil cuando se desea enviar un correo electrónico de Acceso a alguien en su lista de contactos de Outlook.

Instrucciones

1 Lanzamiento de Microsoft Access, haga clic en la pestaña "Crear" y haga clic en "Diseño de formulario" para crear una nueva forma. Haga clic en "cuadro combinado" en el panel "Controles" y haga clic en el formulario para agregar un nuevo control de cuadro combinado. Añadir un "botón de comando" utilizando la misma técnica.

2 Haga clic con el botón de comando y haga clic en "Propiedades". Haga clic en la pestaña "Eventos", seleccione "[Procedimiento de evento]" y haga clic en los puntos suspensivos para crear un evento de clic de este botón.

3 Haga clic en el menú "Herramientas" y haga clic en "Referencias" para iniciar la ventana Referencias. Marque la casilla junto a "Microsoft Outlook <número de versión> biblioteca de objetos" y haga clic en "Aceptar".

4 Agregue el código siguiente para declarar los objetos de Outlook y agregar los contactos a través de un "bucle For ..."

Establecer olApp = CreateObject ( "Outlook.Application")

Establecer OLNSp = OLApp.GetNamespace ( "MAPI")

Establecer OLContactFldr = OLNSp.GetDefaultFolder (olFolderContacts)

Me.Combo0.RowSourceType = "Lista de valores"

Para cada cntItem En OLContactFldr.Items

Me.Combo0.AddItem (cntItem.Subject)

Siguiente cntItem

5 Cambie de nuevo a Microsoft Access y haga clic en el icono "Ver" para ejecutar el formulario. Haga clic en el botón para importar contactos de Outlook en el control de cuadro combinado.