Macro to send email to designated address when an action occurs

Workbook is attached below.

I need a macro which will send email to a specified address when

1. A new user is added. Users will be added with a userform
When a new user is added, the email should look like; Dear admin, Michael Okwoche with userID:12345 has been registered on 28/5/2016 10:56:37 PM

2. When a receipt is recorded using the userform.

When a new receipt is printed, the message should read; Dear admin, Michael Okwoche with userID: 12345 used a total of 4 credits on 28/8/2016 10:56:37 PM

3. When a user is Topped up using the userform.
When a user is "topped up", the message should read; Dear Admin, Michael Okwoche with user ID 12345 has been reloaded with 5 credits

4. When a credit transfer is made using the userform.

When a credit transfer is made to another user, the message should read; Dear user, Michael Okwoche with user ID 12345 has received 5 credits transfer from User 48956:

Note: The values I used in the email messages are just examples and will be dependent on the entries made using the userform.

All userforms can be found when the "Main Menu" button is clicked.


Thanks for your time. Workbook is attached below.