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

Usually, the email address is the name assigned to Outlook Mail Folders.
So try this:

'~~> add these lines to your code
Dim olNS As Outlook.NameSpace
Dim olFol AS Outlook.Folder

Set olNS = OL.GetNamespace("MAPI")
Set olFol = olNS.GetDefaultFolder(olFolderInbox)

MsgBox olFol.Parent.Name '~~> most cases contains the email address

This is assuming your are using Early Bind with the object reference properly set.
Another way to access such info is directly use Namespace properties.

MsgBox olNS.Accounts.Item(1).DisplayName '~~> usually email address
MsgBox olNS.Accounts.Item(1).SmtpAddress '~~> email address
MsgBox olNS.Accounts.Item(1).UserName '~~> displays the user name

I hope any of the above somehow helps.