Страницы: 1
RSS
как при помощи VBA получить электронный адрес учетной записи пользователя ?
 
коллеги, подскажите, пожалуйста, как средствами VBA  получить адрес электронной почты учетной записи пользователя открывшего книгу excel ?

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

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

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