Из того, что я вижу в документации рабочего процесса QC, объект пользователя имел только эти свойства: FullName, IsInGorup и UserName.
Поскольку это так, вам необходим доступ ко всем пользовательским данным, которые вы можете получить, используя метаданные настройки, предоставляемые OTA.
Чтобы получить информацию о пользователе, вам нужно получить объект CustomizationUser , который имеет свойство Email .
Вот пример из документации по итерации по списку пользователей:
Sub ListUsers()
Dim custUsers As CustomizationUsers
Dim USR As CustomizationUser
Dim UList As List
Set custUsers = tdc.Customization.Users
Set UList = custUsers.Users
Debug.Print UList.Count
Dim maxU%, uCnt%
maxU = 5
For Each USR In UList
uCnt = uCnt + 1
With USR
Debug.Print .name & ", " & .Email
End With
If uCnt > maxU Then Exit For
Next USR
Exit Sub
ErrorHandler:
ErrHandler err
End Sub