How to get the email address of the current logged-in user?

Question

I\'m new to VBA and trying to get an automated word document working. At the moment there is a Button in the document that which upon pressing, will fire off an email with t

Answer 1

This answer is for Late Binding so you don't need to have reference libraries. Place the following code in a module:

    Dim OL As Object, olAllUsers As Object, oExchUser As Object, oentry As Object, myitem As Object
    Dim User As String

    Set OL = CreateObject("outlook.application")
    Set olAllUsers = OL.Session.AddressLists.Item("All Users").AddressEntries

    User = OL.Session.CurrentUser.Name

    Set oentry = olAllUsers.Item(User)

    Set oExchUser = oentry.GetExchangeUser()

    msgbox oExchUser.PrimarySmtpAddress