Как можно ввести адрес электронной почты текущего пользователя в ячейку?
Примечание: это отличается от других вопросов, поскольку я не хочу включать адрес электронной почты в фактическое электронное письмо, но я хочу чтобы вставить адрес электронной почты в определенную ячейку c.
Текущий код ниже может извлечь имя пользователя и поместить его в ячейку. Однако я изо всех сил пытался написать макрос, чтобы вытащить их адрес электронной почты. Макрос, возможно, потребуется извлечь из Outlook, что нормально.
Большое спасибо!
Sub GetUserDetails()
Dim UserName, EmailAddress As String
'Getting user name
UserName = Environ("username")
'Getting computer name
' EmailAddress =
'Assigning value to cell C10 and C11
Range("D6").Value = UserName
Range("D7").Value = EmailAddress
End Sub