---

outlook_benutzername.jpg

Hallo zusammen,

ich habe eine kleine Frage: Mittels Excel (2010)-VBA-Makro möchte ich gern das Globale Adressbuch / Address List (Exchange) aus Outlook 2010 auslesen.
Das funktioniert auch soweit ganz gut. Nur fehlt mir die Option, um den Benutzername auszulesen (siehe Bild im Anhang: gün markierter Eintrag).
Über "....GetExchangeUser.ID" bekomme ich nur einen ewig langen kryptischen Code, z.B.: "00000000DCA740C8C042101AB4...."

Frage:
Gibt es hierzu eine GetExchangeUser-Option oder eine andere Möglichkeit?

Danke und Gruß,
Marco

Code:

---

Public Sub GetUsers()
    Dim myolApp As Object 'Outlook.Application
    Dim myNameSpace As Object 'Namespace
    Dim myAddrList As Object 'AddressList
    Dim myAddrEntries As Object 'AddressEntry
    Dim AliasName As String
    Dim i As Integer, r As Integer
    Dim EndRow As Integer, n As Integer
    Dim myStr As String, c As Range
    Dim myPhone As String
    'Dim propertyAccessor As Outlook.propertyAccessor  'This only works with 2007 and may help you out
   
    Set myolApp = CreateObject("Outlook.Application")
    Set myNameSpace = myolApp.GetNamespace("MAPI")
    Set myAddrList = myNameSpace.AddressLists("All Users")
   
    Dim FullName As String, LastName As String, FirstName As String, Department As String, Email As String, Alias As String, UserID As String
    Dim StartRow As Integer
   
    EndRow = Cells(Rows.Count, 3).End(xlUp).Row
   
    StartRow = InputBox("At which row should this start?", "Start Row", 1)
   
    For Each c In Range("A" & StartRow & ":A" & CStr(EndRow))
        AliasName = LCase(Trim(c))
        c = AliasName
        Set myAddrEntries = myAddrList.AddressEntries(AliasName)
       
        LastName = myAddrEntries.GetExchangeUser.LastName
        FirstName = myAddrEntries.GetExchangeUser.FirstName
        Department = myAddrEntries.GetExchangeUser.Department
        Email = myAddrEntries.GetExchangeUser.PrimarySmtpAddress
        Alias = myAddrEntries.GetExchangeUser.Alias
        UserID = myAddrEntries.GetExchangeUser.ID
       
   
        c.Offset(0, 1) = FirstName
        c.Offset(0, 2) = LastName
        c.Offset(0, 3) = Department
        c.Offset(0, 4) = Email
        c.Offset(0, 5) = Alias
        c.Offset(0, 6) = UserID
   
    Next c
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Marco,

ich hab mal etwas entfernt Verwandtes für ein Skript Richtung SAP gebraucht, hab dabei allerdings per LDAP auf die Kontendaten aus dem AD zugegriffen; die Eigenschaften ( siehe http://www.computerperformance.co.uk/Logon/LDAP_attributes_active_directory.htm ) scheinen aber recht nahe beieinander zu sein, für den Benutzernamen ist es dort die Eigenschaft .displayName, vielleicht geht das bei dir auch.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stefan,

danke für den Tipp!
Hat aber leider nicht funktioniert...

Gruß,
Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP