Dim Mail As New MailMessage
Mail.To = "fjqagx@yahoo.com.cn" '收件人邮件地址
Mail.From = "我的邮箱" '发件人邮件地址
Mail.BodyFormat = MailFormat.Html '
Mail.Subject = "加盟合作." '邮件主题
Mail.Body = "加盟合作内容.." '邮件内容
Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")
Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", "我的邮箱") '发件人邮箱用户名
Mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", "密码") '发件人邮箱密码
SmtpMail.SmtpServer = "smtp.163.com" '发件人使用邮局的 smtp,可以在邮箱的帮助中找到 smtp 和 pop3.
Try
SmtpMail.Send(Mail)
Page.RegisterStartupScript("SendOK", "<script>alert('信件已经发送成功，我们会尽快与您联系!');</script>")
Catch ex As Exception
Page.RegisterStartupScript("SendErr", "<script>alert('很抱歉，由于下列原因导致能的信件没有发送成功,请过会儿在试：\n\n" & ex.Message.Replace("'", "") & "');location.href='?';</script>")
End Try
为什么用我的邮箱就发不出去？
用我朋友的邮箱就可以发出去（都是163的）
是不是163 里有smtp权限的问题、?
如果是怎么开通smtp权限
如果不是，原因在哪里？
最近提的问题太多了，没多少分了，希望大家能体谅
------解决方案--------------------------------------------------------
.net类库中发送电子邮件的方法总结
发送电子邮件是许多需要用户注册的网站的通用功能，通过正则表达式我们可以过滤掉不符合电子邮件格式的输入，但是仍没有办法确保用户填写的电子邮件地址一定是他本人真实有效的电子邮件地址，通常验证电子邮件真实有效的办法是：当用户填写的注册资料经过网站初步格式验证之后，用户并不能利用此帐号登录，系统会向用户注册时填写的电子邮件地址发送一封电子邮件，邮件中给出一个链接，只有当用户点击了这个链接之后才能登录到网站，如果用户填写的电子邮件地址不是真实有效的或者不是他本人的，就不会收到这封电子邮件，这样仍然不能登录，这一步一般称之为电子邮件激活。在.net类库中有两种发送电子邮件的方式，一种是在.net2.0以下版本中的做法，一种是.net2.0以上版本的做法。下面分别介绍这两种办法。