Dim mStr, mItem(), mailF, mailT, mailC, mailB, mailN As String
        Dim iFile As System.Int32
        Dim msgTo As New MailMessage
        mailF = mfrom.Text
        mailT = mto.Text
        mailC = mcc.Text
        mailB = mbody.Text
        mailN = msubject.Text
        Try            If bodyf.SelectedValue = "html" Then
                msgTo.BodyFormat = MailFormat.Html
            Else
                msgTo.BodyFormat = MailFormat.Text
            End If
            Select Case mpro.SelectedValue
                Case "low"
                    msgTo.Priority = MailPriority.Low
                Case "normal"
                    msgTo.Priority = MailPriority.Normal
                Case "high"
                    msgTo.Priority = MailPriority.High
            End Select            msgTo.Subject = mailN
            msgTo.Body = mailB
            msgTo.From = mailF
            msgTo.To = mailT
            msgTo.Cc = mailC
            msgTo.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1") 'basic authentication
            msgTo.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", TextBox1.Text) 'set your username here
            msgTo.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", TextBox2.Text) 'set your password here
            SmtpMail.SmtpServer = spserver.Text
            SmtpMail.Send(msgTo)