[会和不会vb.net发邮件的都进来哈]

 Private Sub S_Send(ByVal MailTo As String,  ByVal MailCc As String, _
                        ByVal MailFrom As String, ByVal MailSubject As String, ByVal MailBody As String, _
                        ByVal UserName As String, ByVal Password As String, ByVal sSMTP As String)

        Dim mail As New System.Web.Mail.MailMessage

        mail.To = MailTo
        mail.Cc = MailCc
        mail.BodyEncoding = System.Text.Encoding.UTF8
        mail.From = MailFrom
        mail.Subject = MailSubject
        mail.BodyFormat = System.Web.Mail.MailFormat.Text
        mail.Body = MailBody
        mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
        mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", UserName)
        mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", Password)

        System.Web.Mail.SmtpMail.SmtpServer = sSMTP

        Try
            System.Web.Mail.SmtpMail.Send(mail)

            MsgBox("成功")

        Catch ex As Exception

            MessageBox.Show(ex.ToString)

        End Try

    End Sub

上面就是vb.net发邮件的代码  但是现在有一个比较恶心的问题  我给别人发邮件的同时还要给自己发一封同样的mail 不知道用上面的这种方法是否可以做到  我自己试验的时候总是出错！~

请知道的兄弟姐妹指点下  谢谢！~