制作发邮件程序出错,高手请教!

[CrystalFlower]

本人使用如下源代码:
imports system.web.mail
Dim Mymail As MailMessage = New MailMessage
Mymail.To = mailTo.Text
Mymail.From = mailFrom.Text
Mymail.Subject = mailSubject.Text
Mymail.BodyFormat = MailFormat.Text
Mymail.BodyFormat = mailBody.Text
SmtpMail.SmtpServer = "MymailServer"
SmtpMail.Send(Mymail)
Label1.Text = "信件已经发出！"
-----------------------------------------------
调试出错信息:
未将对象引用设置到对象的实例。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。

源错误:


行 49：
行 50： Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
行 51： Dim Mymail As MailMessage = New MailMessage
行 52： Mymail.To = mailTo.Text
行 53： Mymail.From = mailFrom.Text

[elfzzf]

你的服务器是否配置了 SMTP 需要配好这个才行呢！

Try

Dim newmail As Mail.MailMessage = New Mail.MailMessage()
newmail.To = "[e-mail]"
newmail.Cc = t_cc.Text '这里可以是多个邮件地 用";"分开
newmail.Subject = motif.Text
newmail.From = sender_h.Text
newmail.BodyFormat = Mail.MailFormat.Text
newmail.Body = content.Text
Mail.SmtpMail.Send(newmail)
Response.Write("<script languge=javascript> alert('发送成功！非常感谢您的支持。') ;</script>")

Catch
If Err.Number <> 0 Then

Response.Write("<script languge=javascript> alert('" & Err.Description & "！') ;</script>")
End If
End Try
End Sub

[xhzuo]

SmtpMail.SmtpServer = "MymailServer"
MymailServer配置正确了么？？

[jpyc]

N你的机子上没邮件服务器吧！