Public sub SendMail(tSubject As String, tBody As String) 

'***********************
'Description: Uses the outlook object to create and send a mail using the passed parameters of tsubject,tbody and tTo
'***********************

Dim oItem As Outlook.MailItem
Dim oitems As Items

Set oOutlook = New Outlook.Application
Set oitems = objInbox.Items
Set oItem = oOutlook.CreateItem(olMailItem)
'
With oItem
    .To = tTo
    .Body = tBody
    .Subject = tSubject
    .send
End With