Send Email from Visual Basic Using OLE Messaging

' ----------------------------------------------------
' Notes :
'
' On the Tools menu, choose References and select the
' Microsoft CDO 1.21 Library
' ----------------------------------------------------

' ----------
' Code
' ----------

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

  ' Create the Session Object
  Set objSession = CreateObject("mapi.session")

  ' Logon using the session object
  ' Specify a valid profile name if you want to
  ' Avoid the logon dialog box
  objSession.Logon profileName:="MS Exchange Settings"

  ' Add a new message object to the OutBox
  Set objMessage = objSession.Outbox.Messages.Add

  ' Set the properties of the message object
  objMessage.subject = Subject
  objMessage.Text = MessageText

  'Add a recipient object to the objMessage.Recipients collection
  Set objRecipient = objMessage.Recipients.Add

  'Set the properties of the recipient object
  objRecipient.Name = RecipientName

  objRecipient.Type = mapiTo
  objRecipient.Resolve

  'Send the message
  objMessage.Send showDialog := False

  MsgBox "Message sent successfully!"

  ' Logoff using the session object
  objSession.Logoff
End Sub