SMS

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim TextMessage As String = ""
        Dim Mno As String = ""

        TextMessage = "Test Message"
        Mno = "99658xxxxx"

        url = "http://transaction.lionsms.com/sendsms.jsp?user=sxxxxs&password=18xxxx&mobiles=" & Mno & "&sms=" & TextMessage & ""

        Dim objResponse As System.Net.WebResponse = System.Net.WebRequest.Create(url).GetResponse
        Dim stream As System.IO.Stream = objResponse.GetResponseStream()
        Dim reader As New System.IO.StreamReader(stream)

    End Sub

Email

 Public Sub mail()
        Dim FromAddress As String = Nothing
        Dim ToAddress As String = Nothing
        Dim CCAddress As String = Nothing
        Dim BCCAddress As String = Nothing
        Dim PartyToAddress As String = Nothing
        Dim PartyCCAddress As String = Nothing

        'MailSend = 0

        Dim Subject As String = ""
        Dim BodyText As String

        Subject = "Test Mail"

        BodyText = ""
        BodyText = " Dear Sir,  " + vbCrLf + vbCrLf _
        + " Test" + vbCrLf + vbCrLf

        FromAddress = "pppp@kkkk.com"
        Dim SendFrom As MailAddress = New MailAddress(FromAddress)
        ToAddress = "pppp@kkkk.com"
        Dim SendTo As MailAddress = New MailAddress(ToAddress)

        Dim mailInstance As MailMessage

        Dim mailSenderInstance As SmtpClient = New SmtpClient("192.168.100.7", 25) '25 is the port of the SMTP host

        mailSenderInstance.Credentials = New System.Net.NetworkCredential("hh", "hh")

        mailInstance = New MailMessage(FromAddress, ToAddress, Subject, BodyText)
        ' mailInstance.CC.Add(CCAddress)

        mailInstance.Priority = MailPriority.High

        mailSenderInstance.Send(mailInstance)

        mailInstance.Attachments.Dispose()
        mailInstance.Dispose() 'Please remember to dispose this object

        MsgBox("Mail Has Been Send Successfully ")
    End Sub

Update Query

Update TimePlanMacroPDDet Set UptoProdQty = t.UptoProdQty From

(Select LocationId,Yrmon,Matlid,PdId,ProcessId,Sum(ProdQty) UptoProdQty

From TimePlanMacroProdDet Where LocationId = @LocationId And Yrmon = @Yrmon

And MatlId = @MatlId And PdId = @PdId And ProdnDate between @FrDt And @ToDt

Group By LocationId,Yrmon,Matlid,PdId,ProcessId

) t

Where TimePlanMacroPDDet.LocationId = t.LocationId

And TimePlanMacroPDDet.Yrmon = t.Yrmon

And TimePlanMacroPDDet.MatlId = t.MatlId

And TimePlanMacroPDDet.PdId = t.PdId

And TimePlanMacroPDDet.processid = t.processid

And Type = 'Process'