Visual Basic

If optn1.Checked = True Or optn3.Checked = True Then
sqlstr="select * from des_mast"
            sqlstr = sqlstr & "where pickup_date between '" & Me.dtp1.Value & "' and '" & Me.dtp2.Value & "'"
        End If

Imports System.Net.Mail

Public Class Form1

    Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click


        Dim fromAddress As New MailAddress(Email.Text, Email.Text)
        Dim toAddress As New MailAddress(ToEmail.Text, ToEmail.Text)
        Dim msg As New MailMessage(fromAddress, toAddress)
        msg.Body = Message.Text
        msg.Subject = "test message"
        msg.IsBodyHtml = True
        Dim credential As New System.Net.NetworkCredential(Email.Text, Password.Text)



        Dim mailSender As New System.Net.Mail.SmtpClient()
        mailSender.Host = "smtp.mail.yahoo.com"
        mailSender.Port = 465
        mailSender.EnableSsl = True
        mailSender.Credentials = credential




        Try
            mailSender.Send(msg)
            MsgBox("Message sent")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class