Hvordan få Globale kontakter i VBA Outlook

Microsoft Outlook lagrer kontakter for din bruk. Den globale adresselisten (GAL) inneholder kontaktinformasjon for brukere på Microsoft Exchange-serveren. Ifølge Mike Caraker, IT direktør for FGM Architects, kan du bruke Visual Basic for Applications (VBA) kode for å samkjøre din GAL til en undermappe i kontaktene dine. Ved synkronisering denne mappen, vil du trekke inn nye kontakter, oppdatere eksisterende og fjerne gamle kontakter som er gått ut på dato. Du må aktivere makroer i Microsoft Outlook til å bruke VBA-kode.

Bruksanvisning

Forberedelse til kode Entry

1 Åpne Microsoft Outlook.

2 Trykk Alt + F11 for å åpne Visual Basic Editor.

3 Klikk "Sett inn" og velg "Prosedyre".

4 Skriv "CreateSubFolder" i "Name" -feltet.

5 Velg "Sub" fra "Type" radioknapper og klikk "OK."

Gå inn koden

6 Flytt markøren til den andre linjen. Utsiktene vil generere den første linje automatisk. Den bør leses "Sub CreateSubFolder ()."

7 Type "On Error Resume Next" og trykk Enter.

8 Skriv "Dim GAL Som AddressList, jeg As Integer, objContact Som ContactItem" og trykk Enter.

9 Skriv "Set objOutlook = Create (" Outlook.Application ")" og trykk Enter.

10 Skriv "Set myNameSpace = objOutlook.GetNamespace (" MAPI ")" og trykk Enter.

11 Skriv "Set MyFolder = myNameSpace.GetDefaultFolder (olFolderContacts)" og trykk Enter.

12 Skriv "Set myNewFolder = myFolder.Folders (" global ")" og trykk Enter.

1. 3 Skriv "myNewFolder.Delete" og trykk Enter.

14 Skriv "Set myNewFolder = myFolder.Folders.Add (" global ")" og trykk Enter.

15 Skriv "Set myNewFolder = myFolder.Folders (" global ")" og trykk Enter.

16 Skriv "Set GAL = myNameSpace.AddressLists (" Global Address List ")" og trykk Enter.

17 Skriv "GAL.AddressEntries.Sort" og trykk Enter.

18 Type "For i = 1 Til GAL.AddressEntries.Count - 1" og trykk Enter.

19 Skriv "Set objContact = myNewFolder.Items.Add (" IPM.Contact ")" og trykk Enter.

20 Skriv "objContact.FirstName = (GAL.AddressEntries.Item (i) .GetExchangeUser.FirstName)" og trykk Enter.

21 Skriv "objContact.LastName = (GAL.AddressEntries.Item (i) .GetExchangeUser.LastName)" og trykk Enter.

22 Skriv "objContact.Save" og trykk Enter.

23 Skriv "Neste i" og trykk Enter.

24 Kontroller at den siste linjen leser "End Sub". Outlook vil generere denne linjen for deg.

25 Klikk på "File" og velg "Lagre Project1."

26 Avslutt Visual Basic Editor.

Kjører koden

27 Klikk på "Utvikler" fanen.

28 Klikk på "Makroer".

29 Velg "Project1.CreateSubFolder." Koden vil nå kjøre. Dette kan ta et minutt eller mer, avhengig av antall globale kontakter.

Hint

• Du kan legge til flere felt, som business telefon eller e-postadresse, til koden for å få mer informasjon fra GAL.
• Pass på at du bruker store bokstaver og tegnsetting som vist, fordi dette er en viktig del av VBA-kode syntaks.
• Koden i denne artikkelen er designet av Mike Caraker og ble gjengitt her med hans tillatelse. Det kan brukes for programmering, men er ikke å bli gjengitt uten hans uttrykte tillatelse.