Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
как при помощи VBA получить электронный адрес учетной записи пользователя ?
 
#1
30.01.2020 10:32:00
коллеги, подскажите, пожалуйста, как средствами VBA  получить адрес электронной почты учетной записи пользователя открывшего книгу excel ?

для наглядности прикладываю картинку. Получить нужно то что выделено желтым маркером и обведено красным

 
 
 
#2
30.01.2020 10:45:56
Доброе время суток.
Вариант
Код
Sub ShowUserEMail()
    Dim objAD As Object, objUser As Object

    Set objAD = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & objAD.UserName)
    MsgBox objUser.EMailAddress
End Sub
 
 
 
#3
30.01.2020 11:07:26
Андрей VG, Супер! спасибо большое! ))
 
 
 
Страницы: 1
Наверх