how to send email in vb

i need to know how to code sending email when customers create an account, place an order, and change their password. how would i do that in vb. this is a homework assignment and the code i used already works but i need to implement when customers do those three things and send an email that they have created an account, placed an order, and changed their password. how would i do that in this code?

Try
Dim Msg As MailMessage = New MailMessage()
Dim MailObj As New SmtpClient("smtp.mccombs.utexas.edu")
Msg.From = New MailAddress("littlemic14@yahoo.com", "Michelle Solis")
Msg.To.Add(New MailAddress("michelle.solis@bba07.mccombs.utexas.edu", "Michelle Solis"))
Msg.IsBodyHtml = CBool("False")
Msg.Body = "this is the email body"
Msg.Subject = "this is the subject"
MailObj.Send(Msg)
Catch ex As Exception
MsgBox(ex.ToString)
End Try

End Sub

Well I want you to just try out the bellow code and see to it whether it helps you or not :

Code:

---

Option Explicit

    Private Sub Command1_Click()
      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 = "This is a test."
      objMessage.Text = "This is the message text."

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

      'Set the properties of the recipient object.
      objRecipient.Name = "John Doe"  '<---Replace this with a valid
                                      'display name or e-mail alias
      'Type can be ActMsgTo, mapiTo, or CdoTo for different CDO versions;
      'they all have a constant value of 1.
      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

---

And if you want to get more information on the same then you can click here