定邮件的目的地址
if EmailTo.text<>"" then MailObj.To = EmailTo.text
''设定邮件的抄送地址
if EmailCc.text<>"" then MailObj.Cc = EmailCc.text
''设定邮件的密送地址
if EmailBcc.text<>"" then MailObj.Bcc = EmailBcc.text
''设定邮件格式是文本格式，如果要设定成超文本，把MailFormat.Text改成 MailFormat.Html
MailObj.BodyFormat = MailFormat.Text
''设定邮件优先级，可为 High（高）, Low（低）, Normal（普通）
MailObj.Priority = MailPriority.Normal
''设定邮件主题
MailObj.Subject = EmailSubject.text
''设定邮件内容
MailObj.Body = EmailBody.text
''给邮件增加一个附件
Dim strFileName as string
strFileName=Emailfile.PostedFile.FileName
if strFileName<>"" then MailObj.Attachments.Add(new MailAttachment(strFileName))
''指定使用缺省的SMTP服务器
SmtpMail.SmtpServer = ""
''现在开始发送邮件
SmtpMail.Send(MailObj)
panelSendEmail.Visible = false
panelMailSent.Visible = true
End Sub
</script>
<html>
<body>
<asp:panel id="panelSendEmail" runat="server">
<form Method="Post" EncType="Multipart/Form-Data" runat="server">
<h2>欢迎用ASP.NET来发送E-mail</h2>
<b>请输入邮件发送地址:</b>
<asp:textbox id="EmailFrom" size="30" runat="server" />
<p>
<b>请输入邮件目的地址:</b>
<asp:textbox id="EmailTo" size="30" runat="server" />
<p>
<b>请输入邮件抄送地址:</b>
<asp:textbox id="EmailCc" size="30" runat="server" />
<p>
<b>请输入邮件密送地址:</b>
<asp:textbox id="EmailBcc" size="30" runat="server" />
<p>
<b>请输入邮件主题:</b>
<asp:textbox id="EmailSubject" size="30" runat="server" />
<p>
<b>请输入邮件主体:</b>
<asp:textbox id="EmailBody" TextMode="MultiLine"
Columns="40" Rows="10" runat="server" />
<p>
<b>请加入附件名称:</b>
<input id="Emailfile" type="file" runat="server" size="40" />
<asp:button runat="server" id="SendButton" Text="发送"
OnClick="SendButton_Click" />
</form>
</asp:panel>
<asp:panel id="panelMailSent" runat="server" Visible="False">
您的邮件已经成功发送，欢迎您的再次使用！
</asp:panel>
</body>
</html>
五．至此一个完整的E-mail发送系统就完成了。如果你的机器达到了本文前面提到的运行环境，那么就建立一个指向此aspx文件的虚拟目录，连接上Internet，在浏览器里运行此程序，就可以方便的完成E-mail的发送了。
