Microsoft Outlook slaat contactpersonen voor uw gebruik. De algemene adreslijst (GAL) bevat contactgegevens van gebruikers op uw Microsoft Exchange-server. Volgens Mike Caraker, IT directeur van VGV architecten, kunt u in Visual Basic for Applications (VBA)-code aan uw GAL naar een submap in uw contactpersonen synch. Door synchronisatie deze map, zal u trek in nieuwe contacten, het bijwerken van bestaande en Verwijder oude contactpersonen die verouderd zijn. U moet macro's inschakelen in uw Microsoft Outlook VBA-code te gebruiken.
Codeingang voorbereiden
Microsoft Outlook opent.
Druk op Alt + F11 om de Visual Basic-Editor te openen.
Klik op "Insert" en selecteer "Procedure."
Typ "CreateSubFolder" in het veld "Naam".
Selecteer 'Sub' van de keuzerondjes "Type" en klik op 'OK'.
Invoeren van de Code
Verplaats de cursor naar de tweede lijn. Outlook genereert automatisch de eerste regel. Op moeten luiden "Sub CreateSubFolder()."
Typ "On Error Resume Next" en druk op Enter.
Typ "Dim GAL als AddressList, ik As Integer, objContact als ContactItem" en druk op Enter.
Type "Set objOutlook = CreateObject ("Outlook.Application")" en druk op Enter.
Type "Set myNameSpace = objOutlook.GetNamespace("MAPI") ' en druk op Enter.
Type "MijnMap Set myNameSpace.GetDefaultFolder(olFolderContacts) =" en druk op Enter.
Type "Set myNewFolder = myFolder.Folders("global") ' en druk op Enter.
Typ "myNewFolder.Delete" en druk op Enter.
Type "Set myNewFolder = myFolder.Folders.Add("global") ' en druk op Enter.
Type "Set myNewFolder = myFolder.Folders("global") ' en druk op Enter.
Type "Set GAL = myNameSpace.AddressLists ("Global Address List")" en druk op Enter.
Type "GAL. AddressEntries.Sort"en druk op Enter.
Type "voor i = 1 toe aan de GAL. AddressEntries.Count - 1" en druk op Enter.
Type "Set objContact = myNewFolder.Items.Add ("IPM. Contact")" en druk op Enter.
Type "objContact.FirstName = (GAL. AddressEntries.Item(i). GetExchangeUser.FirstName) "en druk op Enter.
Type "objContact.LastName = (GAL. AddressEntries.Item(i). GetExchangeUser.LastName) "en druk op Enter.
Typ "objContact.Save" en druk op Enter.
Type "volgende ik" en druk op Enter.
Verifiëren dat de laatste regel luidt 'End Sub'. Outlook zal deze regel genereren voor u.
Klik op "Bestand" en selecteer "Save Project1."
Sluit de Visual Basic Editor.
Uitvoeren van de Code
Klik op het tabblad 'Developer'.
Klik op "Macro's."
Selecteer "Project1.CreateSubFolder." De code wordt nu uitgevoerd. Dit kan een minuut of langer, duren afhankelijk van het aantal wereldwijde contacten.
- U kunt meer velden, zoals zakelijke telefoon of secundaire e-mailadres, toevoegen aan de code meer informatie opvragen bij de GAL.
- Zorg ervoor dat u het hoofdlettergebruik en leestekens zoals want dit een belangrijk onderdeel van de syntaxis van de VBA-code is.
- De code in dit artikel werd ontworpen door Mike Caraker en hier met zijn toestemming werd overgenomen. Het kan worden gebruikt voor het programmeren, maar is niet uitgedrukt om te worden afgedrukt zonder zijn toestemming.