Exchange Daten einer Abt. in Listbox

Public Function GetNameDetails(var1, var2 As String)
Dim outApp As Object
Dim outTI As Object
Dim outRec As Object
Dim outAL As Object
Set outApp = CreateObject("Outlook.Application")
Set outAL = outApp.Session.addressLists.Item("Globale Adressliste")
Set outTI = outApp.CreateItem(3)
Set outRec = outTI.Recipients.Add(var1)
outRec.Resolve
If outRec.Resolved Then
'Hier Variablen abrufen: https://learn.microsoft.com/en-us/office/vba/api/outlook.exchangeus
If var2 = "Department" Then GetNameDetails = outRec.addressEntry.GetExchangeUser.department
If var2 = "Email" Then GetNameDetails = outRec.addressEntry.GetExchangeUser.PrimarySmtpAddress
If var2 = "Alias" Then GetNameDetails = outRec.addressEntry.GetExchangeUser.Alias
Else
GetNameDetails = ""
End If
Set outApp = Nothing
Set outAL = Nothing
Set outTI = Nothing
Set outRec = Nothing
End Function
Sub Test()
GetNameDetails("muserterm1", "Email")
'Als Ergebnis kam dann die Email zum Hans Mustermann, der unter musterm1 nur als einziger gelistet wird
end sub