Microsoft Outlook memorizza i contatti per il vostro uso. Il Global Address List (GAL) contiene informazioni di contatto per gli utenti sul server di Microsoft Exchange. Secondo Mike Caraker, IT Director di MGF Architects, è possibile utilizzare il codice Visual Basic, Applications Edition (VBA) per sincronizzare il GAL in una sottocartella nei contatti. Con la sincronizzazione questa cartella, si tirerà a nuovi contatti, aggiornare quelli esistenti e rimuovere i vecchi contatti che non sono aggiornati. È necessario attivare le macro all'interno di Microsoft Outlook per utilizzare codice VBA.

istruzione

Preparazione per inserimento codice

1 Aprire Microsoft Outlook.

2 Premere Alt + F11 per aprire l'editor di Visual Basic.

3 Fai clic su "Inserisci" e selezionare "Procedura".

4 Tipo "CreateSubfolder" nel campo "Nome".

5 Selezionare "Sub" dai pulsanti di opzione "Tipo" e fare clic su "OK".

Inserimento del codice

6 Spostare il cursore sulla seconda linea. Outlook genererà automaticamente la prima linea. Si dovrebbe leggere "CreateSubfolder Sub ()."

7 Tipo "On Error Resume Next" e premere Invio.

8 Tipo "Dim GAL Come AddressList, i come numero intero, objContact come ContactItem" e premere Invio.

9 Digitare "Set objOutlook = CreateObject (" Outlook.Application ")" e premere Invio.

10 Digitare "Set MyNamespace = objOutlook.GetNamespace (" MAPI ")" e premere Invio.

11 Digitare "Set myFolder = myNameSpace.GetDefaultFolder (olFolderContacts)" e premere Invio.

12 Digitare "Set MyNewFolder = myFolder.Folders (" globale ")" e premere Invio.

13 Tipo "myNewFolder.Delete" e premere Invio.

14 Digitare "Set MyNewFolder = myFolder.Folders.Add (" globale ")" e premere Invio.

15 Digitare "Set MyNewFolder = myFolder.Folders (" globale ")" e premere Invio.

16 Digitare "Set GAL = myNameSpace.AddressLists (" Global Address List ")" e premere Invio.

17 Tipo "GAL.AddressEntries.Sort" e premere Invio.

18 Tipo "Per i = 1 Per GAL.AddressEntries.Count - 1" e premere Invio.

19 Digitare "Set objContact = myNewFolder.Items.Add (" IPM.Contact ")" e premere Invio.

20 Tipo "objContact.FirstName = (GAL.AddressEntries.Item (i) .GetExchangeUser.FirstName)" e premere INVIO.

21 Tipo "objContact.LastName = (GAL.AddressEntries.Item (i) .GetExchangeUser.LastName)" e premere INVIO.

22 Tipo "objContact.Save" e premere Invio.

23 Tipo "Next i" e premere Invio.

24 Verificare che l'ultima riga legge "End Sub". Outlook genererà questa linea per voi.

25 Fai clic su "File" e selezionare "Salva Project1".

26 Uscire l'editor di Visual Basic.

L'esecuzione del codice

27 Fare clic sulla scheda "Sviluppatore".

28 Fai clic su "Macro".

29 Selezionare "Project1.CreateSubFolder." Il codice verrà eseguito. Questo può richiedere un minuto o più, a seconda del numero di contatti globali.

Consigli e avvertenze

• È possibile aggiungere altri campi, come il telefono di lavoro o indirizzo email secondario, per il codice per ottenere ulteriori informazioni dal GAL.
• Assicurarsi di utilizzare la capitalizzazione e la punteggiatura, come indicato perché questa è una parte importante della sintassi del codice VBA.
• Il codice in questo articolo è stato progettato da Mike Caraker ed è stato riprodotto qui con il suo permesso. Esso può essere utilizzato per la programmazione, ma non deve essere ristampato senza il suo consenso espresso.