Applying a Username within Text on an outlook Email

Hi there,

I currently have created the following code

Sub SendEmail()

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutApp = CreateObject("Outlook.application")
Set OutMail = OutApp.CreateItem(olMailItem)

With OutMail

.To = "sean.hickman@idealboilers.com"
.CC = ""
.BCC = ""
.Subject = "ERP LABEL SHEET SAVED IN NEW LOCATION"
.Body = " <INSERT USERNAME> has saved the Master Data Sheet in a new Location"

'walkout from the loading bar
.Display
Application.SendKeys "%s"

'.Send
End With

End Sub

I am trying to find a way of taking the username of the person with the sheet currently open and inserting it into the email being sent to the owner of the sheet.

The idea is that this code will enter into a userform at the 'save' function questioning if the person has the authority to save this file elsewhere. If they click yes this code will run. Therefore controlling all edits to the document.

(In an ideal world I'd like to include the new file save location in the email as well, though I'm not sure if this is beyond my Excel VBA Intermediate knowledge!)

any help with this?

Sean Hickman