Le aziende l'invio di email di massa per grandi gruppi di persone possono trovare utile tenere un registro aggiornato del rispettivo liste di distribuzione. Microsoft Outlook include questa funzionalità come l'elenco indirizzi globale di distribuzione. È possibile aggiornare un tale lista in diversi modi, ma uno dei più semplici è tramite Visual Basic, o VB. Poiché VB scappa singoli comandi, piuttosto che avanti e indietro l'interattività, l'aggiornamento della lista richiede la scrittura di un nuovo elenco sul vecchio.

istruzione

1 Aprire VB.

2 Selezionare "Nuovo" dal menu File. Fai clic su "Progetto" nella finestra che appare.

3 Controllare le caselle contrassegnate con "Progetti di Visual Basic" e "Applicazione Console", quindi fare clic su "OK". Questo crea la finestra che permette di inserire il codice di lista di distribuzione.

4 Selezionare "Add Reference" dal menu Progetto nella parte superiore dello schermo.

5 Fare clic sulla scheda "COM".

6 Fare doppio clic su "Libreria oggetti di Microsoft Outlook XX." La "XX" dirà la versione di Outlook (cioè, 10.0, 9.1). Fai clic su "OK".

7 Fare clic in qualsiasi punto della finestra di progetto che è apparsa e premere il tasto "Ctrl" + "A" per selezionare tutto il testo. Premere il tasto "Cancella". Sarete sostituire questo codice generico per aprire Outlook con il codice di lista di distribuzione.

8 Copia e incolla il seguente nella finestra. Non premere "Invio".

Imports System.Reflection

Module Module1

Sub Main()

'Crea applicazione Outlook.

Dim oApp Come Outlook.Application = Nuovo Outlook.Application ()

'Get Mapi spazio dei nomi e di accesso.

oNS fiochi come Outlook.NameSpace = oApp.GetNamespace ( "MAPI")

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

'Get Global Address List.

oDLs fiochi come Outlook.AddressLists = oNS.AddressLists

Dim oGal Come Outlook.AddressList = oDLs.Item ( "Global Address List")

Console.WriteLine (oGal.Name)

'Ottenere una lista di distribuzione specifica.

' [FARE]

Dim sdl As String = "TestDL"

oEntries fiochi come Outlook.AddressEntries = oGal.AddressEntries

'Nessun filtro disponibile per AddressEntries

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

Console.WriteLine (oDL.Name)

Console.WriteLine (oDL.Address)

Console.WriteLine (oDL.Manager)

'Ottenere tutti i membri della lista di distribuzione.

oEntries = oDL.Members

Dim oEntry Come Outlook.AddressEntry

Dim i As Integer

Per i = 1 a oEntries.Count

oEntry = oEntries.Item (i)

Console.WriteLine (oEntry.Name)

'Visualizzare la finestra di dialogo Dettagli.

'ODL.Details (Missing.Value)

Il prossimo

' Disconnettersi.

oNS.Logoff ()

' Pulire.

oApp = Nothing

oNS = Nothing

oDLs = Nothing

oGal = Nothing

oEntries = Nothing

oEntry = Nothing

End Sub

Modulo fine

9 Sostituire il primo "[TO DO]" con la password di Outlook.

10 Sostituire il secondo "[TO DO]" con la posizione per salvare l'elenco. Per salvare sul desktop, per esempio, digitare "C: \ Desktop" (senza virgolette).

11 Premere il tasto "Enter" per creare una versione aggiornata dell'elenco.