Retrieve the Users Email address

[GRCArizona]

Hi - I've got a work file that is on our company's network. I'm trying to put in a layer of security to ensure that when someone opens up the file, a macro will run and check the Users email address (in our Outlook) to make sure the email address has our company's extension (IE: user@honeywell.com). If the extension is Honeywell, then the file can proceed, if not then it shuts down / closes / etc.

Hope I explained that correctly.

the only code I can come across is to determine UserName.

Anyone have any suggestions?

Thanks,
grc

 

[wigi]

the only code I can come across is to determine UserName.

But the user who runs the macro, already logged in.
Why would you add a second layer of security - in addition, one that is superfluous since the authentication already took place.

 

[GRCArizona]

In case s.o. in the company emails the file outside the company.

 

[wigi]

I could come up with a way to do it, it works in my tests:

Sub fff()
    
    Dim bFound As Boolean
    bFound = False
    For Each objAccount In Outlook.Application.Session.Accounts
         If InStr(objAccount.SmtpAddress, "@honeywell.com") Then bFound = True: Exit For
    Next
    
    If bFound Then
        
        'your code
        
    End If

End Sub