'Create a new MailMessage object and specify the"From" and "To" addresses
        Dim Email As New System.Net.Mail.MailMessage( _
           "Brad.Kingsley@orcsweb.com", "Brad@KingsleyTeam.com")
        Email.Subject = "test subject"
        Email.Body = "this is a test"
        Dim mailClient As New System.Net.Mail.SmtpClient()
        'This object stores the authentication values
        Dim basicAuthenticationInfo As _
           New System.Net.NetworkCredential("am69615", "my_good_life_123$")
        'Put your own, or your ISPs, mail server name onthis next line
        mailClient.Host = "172.19.56.18"
        mailClient.UseDefaultCredentials = True
        mailClient.Credentials = basicAuthenticationInfo
        mailClient.Send(Email)
        MsgBox("Message Send")