Private Sub Send_Email(Subject As String, MessageText As String, 

RecipientName As String)
  Dim objSession As Object
  Dim objMessage As Object
  Dim objRecipient As Object


  Set objSession = CreateObject("mapi.session")


 
  objSession.Logon profileName:="MS Exchange Settings"


 
  Set objMessage = objSession.Outbox.Messages.Add


 
  objMessage.subject = Subject
  objMessage.Text = MessageText