Nwlapcug.com


Come arrivare contatti globali in VBA Outlook

Microsoft Outlook memorizza i contatti per il vostro uso. L'elenco di indirizzi globale (EIG) contiene informazioni di contatto per gli utenti sul server di Microsoft Exchange. Secondo Mike Caraker, direttore di MGF architetti IT, è possibile utilizzare Visual Basic, Applications Edition (VBA) per la sincronizzazione elenco indirizzi globale in una sottocartella nei tuoi contatti. Sincronizzando questa cartella, potrai tirare in nuovi contatti, aggiornare quelle esistenti e rimuovere vecchi contatti che non sono aggiornati. È necessario attivare le macro all'interno di Microsoft Outlook per utilizzare codice VBA.

Istruzioni

Preparazione per l'ingresso di codice

1

Aprire Microsoft Outlook.

2

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

3

Fare clic su "Inserisci" e selezionare "Procedura".

4

Digitare "CreateSubFolder" nel campo "Nome".

5

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

Inserimento del codice

6

Spostare il cursore alla seconda riga. In Outlook verrà generata automaticamente la prima riga. Si deve leggere "Sub CreateSubFolder()."

7

Digitare "On Error Resume Next" e premere INVIO.

8

Digitare "Dim GAL come AddressList, i As Integer, objContact come ContactItem" e premere INVIO.

9

Tipo "Set objOutlook = CreateObject ("Outlook. Application")" e premere INVIO.

10

Tipo "Set myNameSpace = objOutlook.GetNamespace("MAPI")" e premere INVIO.

11

Tipo "Set myFolder = myNameSpace" e premere INVIO.

12

Tipo "Set myNewFolder = myFolder.Folders("global")" e premere INVIO.

13

Digitare "myNewFolder.Delete" e premere INVIO.

14

Tipo "Set myNewFolder = myFolder.Folders.Add("global")" e premere INVIO.

15

Tipo "Set myNewFolder = myFolder.Folders("global")" e premere INVIO.

16

Tipo "Set GAL = myNameSpace.AddressLists ("Global Address List")" e premere INVIO.

17

Tipo "GAL. AddressEntries.Sort"e premere INVIO.

18

Tipo "For i = 1 a GAL. AddressEntries.Count - 1" e premere INVIO.

19

Tipo "Set objContact = myNewFolder.Items.Add ("IPM. Contatto")" 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

Digitare "objContact.Save" e premere INVIO.

23

Tipo "prossimo io" e premere INVIO.

24

Verificare che legge l'ultima riga "End Sub". In Outlook verrà generata questa linea per voi.

25

Fare clic su "File" e selezionare "Salva Project1."

26

Uscire dall'Editor di Visual Basic.

L'esecuzione del codice

27

Fare clic sulla scheda "Sviluppatore".

28

Fare clic su "Macro".

29

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

Consigli & Avvertenze

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