求发送邮件代码

自己试过在告诉我

jmail  莫名错误 .

System.Web.mail MailMessage
System.Web.Mail.MailMessage已过时:“The recommended alternative is System.Net.Mail.MailMessage. http://go.microsoft.com/fwlink/?linkid=14202”

还有个
    '    Sub SendMail_init()

    '        '创建发件连接,根据你的发送邮箱的SMTP设置填充
    '        Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)

    '        '发件邮箱身份验证,参数分别为发件邮箱登录名和密码
    '        smtp.Credentials = New System.Net.NetworkCredential("Xxxx@163.com", "xxxx")

    '        '创建邮件
    '        Dim mail As New System.Net.Mail.MailMessage()

    '        '邮件主题
    '        mail.Subject = "wangyangde sudu"

    '        '主题编码
    '        mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")

    '        '邮件正文件编码
    '        mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")

    '        '发件人邮箱
    '        mail.From = New System.Net.Mail.MailAddress("xx@qq.com")

    '        '邮件优先级
    '        mail.Priority = System.Net.Mail.MailPriority.Normal

    '        'HTML格式的邮件,为false则发送纯文本邮箱
    '        mail.IsBodyHtml = True

    '        '邮件内容
    '        mail.Body = "尊敬的用户你的密码为xx  请保管好"

    '        '添加收件人,如果有多个,可以多次添加
    '        ' mail.To.Add("xx@qq.com")

    '        '定义附件,参数为附件文件名,包含路径,推荐使用绝对路径
    '        '如果不需要附件,下面三行可以不要
    '        'Dim a As New System.Net.Mail.Attachment("附件文件")

    '        '附件文件名,用于收件人收到附件时显示的名称
    '        'a.Name = "附件文件名"

    '        '加入附件,可以多次添加
    '        'mail.Attachments.Add(a)

    '        '发送邮件
    '        Try

    '            smtp.Send(mail)
    '            MessageBox.Show("发送成功")

    '        Catch

    '            MessageBox.Show("发生失败")

    '        Finally

    '            mail.Dispose()
    '        End Try

    '    End Sub

  急求正确代码    --------------------编程问答-------------------- http://blog.csdn.net/machong8183/archive/2010/04/08/5461485.aspx --------------------编程问答-------------------- public void MailSend(string MailFrom,string MailTo,string MailPwd,string Mailtitle,string MailCon)
{
MailMessage MyMail = new MailMessage();
MyMail.From = new MailAddress("", "");
MyMail.To.Add(new MailAddress(""));
MyMail.Subject = Mailtitle;
MyMail.Body = MailCon;
MyMail.IsBodyHtml = true;
SmtpClient smtpclient = new SmtpClient();
smtpclient.DeliveryMethod = SmtpDeliveryMethod.Network;
smtpclient.Host = "";
smtpclient.Credentials = new System.Net.NetworkCredential(MailFrom, MailPwd);
smtpclient.Send(MyMail);
}

jmail.Message Jmail = new jmail.Message();
DateTime t = DateTime.Now;
String Subject = "";
String body = "";
String FromEmail = "";
String ToEmail = "";
Jmail.Charset = "GB2312";
Jmail.ContentType = "text/html";
Jmail.AddRecipient(ToEmail, "", "");
Jmail.From = FromEmail;
Jmail.MailServerUserName = "";
Jmail.MailServerPassWord = "";
Jmail.Subject = Subject;
Jmail.ContentType="text/html";
Jmail.Body = body + t.ToString();
Jmail.Send("", false);
Jmail.Close();

message.Body ="";
client.Send(message);

补充：.NET技术 ,  VB.NET