救我！！！

怎么这么复杂，给过你一个
            Dim objMM As New Mail.MailMessage
            '发信及收信人
            objMM.From = sForm
            objMM.To = sTo            'CC的成员
            If Len(sCC) <> 0 Then
                objMM.Cc = sCC
            End If            'mail主体格式
            objMM.BodyFormat = Mail.MailFormat.Text            'mail定位
            objMM.Priority = Mail.MailPriority.Normal            'mail主题
            objMM.Subject = sSubject            'mail主体
            objMM.Body = sMsg            Mail.SmtpMail.Send(objMM)