Shopping Cart List View Email

    Protected Sub btnProOrd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnProOrd.Click
        Dim sName As String, sEmail As String, sAddress As String, sSub As String
        Dim sPCode As String, sState As String, sOrder As String, sPayment As String
 

        sName = Trim(CusName.Text)
        sEmail = Trim(CusEmail.Text)
        sAddress = Trim(CusAddr.Text)
        sSub = Trim(CusSub.Text)
        sPCode = Trim(CusPCode.Text)
        sState = Trim(CusState.Text)
        sPayment = Trim(lstCardType.Text)
        sOrder = Trim(lstCart.Items.ToString)
 

 
        Dim MyMail As New MailMessage()
        MyMail.From = New MailAddress(CusEmail.Text)
        MyMail.To.Add(txtTo.Text)
        MyMail.To.Add(CusEmail.Text)
 
        MyMail.Body = "New Order Recieved" + vbNewLine + "Customer Name" + " " + sName + vbNewLine + "Customer Address" + vbNewLine + sAddress + vbNewLine + sSub + " " + sPCode + " " + sState + vbNewLine + vbNewLine + "Payment Method" + " " + sPayment + vbNewLine + "Customer Order" + vbNewLine + sOrder
 

        Dim SmtpMail As New SmtpClient
        SmtpMail.Send(MyMail)
 
        MsgBox("Your order has been submitted for processing. A copy has been sent to your email as well.")