Wie man globale Kontakte in Outlook VBA

Microsoft Outlook speichert Kontakte für Ihren Gebrauch. Die globale Adressliste (GAL) enthält Kontaktinformationen für Benutzer auf Ihrem Microsoft Exchange-Server. Laut Mike Caraker, IT-Direktor des FGM Architekten, können Sie Visual Basic für Applikationen (VBA)-Code Ihrer GAL in einen Unterordner Ihrer Kontakte zu synchronisieren. Von diesem Ordner synchronisieren, Sie ziehen in neue Kontakte, vorhandene zu aktualisieren und entfernen Sie alte Kontakte, die veraltet sind. In Ihrem Microsoft Outlook mithilfe von VBA-Code müssen Sie Makros aktivieren.

Anweisungen

Vorbereitung für Code-Eingabe

1 Öffnen Sie Microsoft Outlook.

2 Drücken Sie Alt + F11, um den Visual Basic-Editor zu öffnen.

3 Klicken Sie auf "Einfügen" und wählen Sie "Verfahren."

4 Geben Sie im Feld "Name" "CreateSubFolder".

5 Wählen Sie die Optionsfelder "Typ" "Sub" und klicken Sie auf "OK".

Eingabe des Codes

6 Bewegen Sie den Cursor auf die zweite Zeile. Outlook generiert automatisch die erste Zeile. Es sollte heißen "Sub CreateSubFolder()."

7 Geben Sie "On Error Resume Next", und drücken Sie die EINGABETASTE.

8 Geben Sie "Dim GAL als AddressList, i AsInteger ObjContact als ContactItem" und drücken Sie die EINGABETASTE.

9 Typ "Set ObjOutlook = CreateObject ("Outlook.Application")" und drücken Sie die EINGABETASTE.

10 Typ "Set MyNameSpace = objOutlook.GetNamespace("MAPI")" und drücken Sie die EINGABETASTE.

11 Typ "Set MyFolder = myNameSpace.GetDefaultFolder(olFolderContacts)" und drücken Sie die EINGABETASTE.

12 Typ "Set MyNewFolder = myFolder.Folders("global")" und drücken Sie die EINGABETASTE.

13 Geben Sie "myNewFolder.Delete", und drücken Sie die EINGABETASTE.

14 Typ "Set MyNewFolder = myFolder.Folders.Add("global")" und drücken Sie die EINGABETASTE.

15 Typ "Set MyNewFolder = myFolder.Folders("global")" und drücken Sie die EINGABETASTE.

16 Typ "Set GAL = myNameSpace.AddressLists ("globale Adressliste")" und drücken Sie die EINGABETASTE.

17 Typ "Mädchen. AddressEntries.Sort"und drücken Sie die EINGABETASTE.

18 Typ "für i = 1 bis GAL. AddressEntries.Count - 1" und drücken Sie die EINGABETASTE.

19 Typ "Set ObjContact = myNewFolder.Items.Add ("IPM ". Kontakt")" und drücken Sie die EINGABETASTE.

20 Typ "objContact.FirstName = (GAL. AddressEntries.Item(i). GetExchangeUser.FirstName) "und drücken Sie die EINGABETASTE.

21 Typ "objContact.LastName = (GAL. AddressEntries.Item(i). GetExchangeUser.LastName) "und drücken Sie die EINGABETASTE.

22 Geben Sie "objContact.Save", und drücken Sie die EINGABETASTE.

23 Typ "nächste ich" und drücken Sie die EINGABETASTE.

24 Stellen Sie sicher, dass die letzte Zeile lautet: "EndSub". Outlook wird diese Zeile generiert.

25 Klicken Sie auf "Datei" und wählen Sie "Speichern"Project1.""

26 Beenden Sie den Visual Basic-Editor.

Ausführen des Codes

27 Klicken Sie auf die Registerkarte "Entwicklertools".

28 Klicken Sie auf "Makros".

29 Wählen Sie "Project1.CreateSubFolder." Der Code wird jetzt ausgeführt. Dauert eine Minute oder länger, je nach der Anzahl der Kontakte weltweit.

Tipps & Warnungen

• Sie können den Code um weitere Informationen aus der GAL weitere Felder, wie Telefon oder sekundäre e-Mail-Adresse hinzufügen.
• Stellen Sie sicher, dass Sie die Groß-/Kleinschreibung und Satzzeichen wie gezeigt, denn dies ist ein wichtiger Teil der VBA-Code-Syntax verwenden.
• Der Code in diesem Artikel wurde von Mike Caraker entworfen und wurde hier mit seiner Erlaubnis reproduziert. Es kann für die Programmierung verwendet werden, aber nicht um nachgedruckt ohne seine Erlaubnis ausgedrückt ist.