How To Covert Email Macro

I am trying to insert a macro to send myself an email when ever someone uses my spreadsheet (I'll embed the code in an existing macro).

The reason for this is to not only gauge who/how many people are using it but also make sure no one is using it externally (I suspect people are passing it on to people outside the company which they are not supposed to). I need it to be covert so I don't tip them off and they don't start circumventing this check.

I have found the below which works well, but I wanted to see if there could be some additional checks to better conceal the sending of an email.

Can I also somehow check the Outlook status to make sure it is working "online" so the email doesn't sit in their Outbox if they are not connected to the network/LAN?

Code:

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Dim oApp As Object 'Outlook.Application 'Object
Dim ns As Object 'Namespace
Dim fldr As Object 'MAPIFolder
Dim mItem As Object 'Outlook.MailItem
Dim sendTo As Object 'Outlook.Recipient
Dim bOutlookFound As Boolean

[code]....