Cómo actualizar la lista de distribución global de direcciones de Outlook en VB

Las empresas que envían correos electrónicos masivos a grandes grupos de personas pueden encontrar que es útil llevar un registro actualizado de sus listas de distribución. Microsoft Outlook incluye esta característica como la lista de direcciones de distribución mundial. Puede actualizar una lista de varias maneras tales, pero uno de los más fácil es a través de Visual Basic o Visual Basic. Debido a que VB se escapa comandos individuales en lugar de interactividad de ida y vuelta, la actualización de la lista requiere escribir una nueva lista sobre la vieja.

Instrucciones

1 VB abierta.

2 Seleccione "Nuevo" en el menú Archivo. Haga clic en "Proyecto" en la ventana que aparece.

3 Seleccione las casillas marcadas "Proyectos de Visual Basic" y "Aplicación de consola", a continuación, haga clic en "Aceptar". Esto crea la ventana que le permite introducir el código de lista de distribución.

4 Seleccione "Agregar referencia" en el menú Proyecto en la parte superior de la pantalla.

5 Haga clic en la pestaña "COM".

6 Haga doble clic en "Microsoft Outlook XX Biblioteca de objetos." La "XX" dirá su versión de Outlook (es decir, 10.0, 9.1). Haga clic en Aceptar."

7 Haga clic en cualquier lugar de la ventana del proyecto que ha aparecido y pulse la tecla "Ctrl" + "A" para seleccionar todo el texto. Pulse la tecla "Borrar". Va a sustituir este código genérico para abrir Outlook con el código de lista de distribución.

8 Copiar y pegar el siguiente en la ventana. No presione "Enter".

Imports System.Reflection

Module Module1

Sub Main()

'Crear aplicación de Outlook.

Dim oApp Como Outlook.Application = Nueva Outlook.Application ()

'Obtener Mapi espacio de nombres y de inicio de sesión.

ONS dévil como Outlook.NameSpace = oApp.GetNamespace ( "MAPI")

oNS.Logon ( "YourValidProfile", Missing.Value, False, True) '[Para hacer]:

"Obtener la lista global de direcciones.

ODLS dévil como Outlook.AddressLists = oNS.AddressLists

Dim Ogal Como Outlook.AddressList = oDLs.Item ( "lista global de direcciones")

Console.WriteLine (oGal.Name)

'Obtener una lista de distribución específica.

' [QUE HACER]

Dim SDL As String = "TestDL"

oEntries dévil como Outlook.AddressEntries = oGal.AddressEntries

"Sin filtro disponible para AddressEntries

Dim ODL Como Outlook.AddressEntry = oEntries.Item (SDL)

Console.WriteLine (oDL.Name)

Console.WriteLine (oDL.Address)

Console.WriteLine (oDL.Manager)

"Obtener todos los miembros de la lista de distribución.

oEntries = oDL.Members

Dim oEntry Como Outlook.AddressEntry

Dim i As Integer

Para i = 1 a oEntries.Count

oEntry = oEntries.Item (i)

Console.WriteLine (oEntry.Name)

"Mostrar el cuadro de diálogo Detalles.

'ODL.Details (Missing.Value)

Siguiente

' Desconectarse.

oNS.Logoff ()

' Limpiar.

oApp = nada

ONS = nada

ODLS = Nada

Ogal = Nada

oEntries = Nada

oEntry = nada

End Sub

Módulo fin

9 Vuelva a colocar la primera "[hacer]" con la contraseña de Outlook.

10 Vuelva a colocar el segundo "[hacer]" con la ubicación para guardar la lista. Para guardar en el escritorio, por ejemplo, de tipo "C: \ Desktop" (sin comillas).

11 Pulse la tecla "Enter" para crear una versión actualizada de la lista.