Try
            myMessage = New System.Web.Mail.MailMessage
            With myMessage
                .To = sendTo
                .From = From
                .Subject = Subject
                .Body = Body
                .BodyFormat = System.Web.Mail.MailFormat.Text
                SMTPServer = "smtp.rediffmailpro.com"
 
 
 
                If CC <> "" Then .Cc = CC
                If BCC <> "" Then .Bcc = ""
 
            End With
 
            System.Web.Mail.SmtpMail.Send(myMessage)

        Dim CDOSYS As Object
        Const cdoSendUsingPickup = 1
        Const strPickup = "c:\inetpub\mailroot\pickup"
        CDOSYS = CreateObject("CDO.Message")
 
        CDOSYS.Configuration.Fields.item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusing") _
 = cdoSendUsingPickup
 
        CDOSYS.Configuration.Fields.item _
	("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")  _
	= strPickup
 
        CDOSYS.Configuration.Fields.Update()
        CDOSYS.To = txtTo.Text
        CDOSYS.From = txtFrom.Text
        CDOSYS.Subject = "CDO Test"
        CDOSYS.TextBody = "Send Email from vb.net using CDOSYS"
        CDOSYS.Send()
        CDOSYS = Nothing
        MsgBox("mail send")

Imports System.Net
Imports System.Net.Mail
 
Dim oSMTPCred As NetworkCredential
Dim oSmtpClient As SmtpClient
Dim AFrom As MailAddress
Dim ATo As MailAddress
Dim Addr As MailAddress
Dim NewMsg As MailMessage
Dim i As Integer
 
' Set client for Gmail
oSmtpClient = New SmtpClient
oSmtpClient.Host = "smtp.gmail.com"
oSmtpClient.Port = 587 ' Default port is 25
oSmtpClient.Timeout = 15000 ' Milliseconds
oSmtpClient.DeliveryMethod = Mail.SmtpDeliveryMethod.Network
 
' Set credentials for Gmail and use SSL
oSMTPCred = New NetworkCredential("your gmail address here", "and your password")
oSmtpClient.UseDefaultCredentials = False
oSmtpClient.Credentials = oSMTPCred
oSmtpClient.EnableSsl = True
 
' Compose message
ATo = New MailAddress("john.doe@acme.com")
AFrom = New MailAddress("your gmail address here")
NewMsg = New MailMessage(AFrom, ATo)
 
NewMsg.Subject = "Test"
NewMsg.Body = "Test"
NewMsg.BodyEncoding = System.Text.Encoding.ASCII
 
' Dummy vars for demo purpose
Dim CC(0) As String
Dim BCC(0) As String
CC(0) = "john.doe@acme.com"
BCC(0) = "john.doe@acme.com"
 
' Set CC addresses
For i = 0 To CC.GetUpperBound(0)
  Addr = New MailAddress(CC(i))
  NewMsg.CC.Add(Addr)
Next i
' Set BCC addresses
For i = 0 To BCC.GetUpperBound(0)
  Addr = New MailAddress(BCC(i))
  NewMsg.Bcc.Add(Addr)
Next i
 
' Finally, send the message
oSmtpClient.Send(NewMsg)

Imports System.Net.Mail

Dim oSMTPCred As NetworkCredential
Dim oSmtpClient As SmtpClient
Dim AFrom As MailAddress
Dim ATo As MailAddress
Dim Addr As MailAddress
Dim NewMsg As MailMessage