发送Email出错：

说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。

编译器错误信息: BC30390: “System.Web.Mail.SmtpMail.Private Overloads Sub New()”是“Private”，因此它在此上下文中无法访问。

源错误:



行 27： Dim TheMessage as String
行 28： Dim TheMailMessage as New MailMessage
行 29： Dim TheMailConnection as New SmtpMail
行 30： Dim TheAttachment as New MailAttachment _
行 31： (Server.MapPath(ddlFiles.SelectedItem.value))



<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OLEDB" %>
<%@ Import Namespace="System.Web.Mail" %>








id="lblTitle"
Font-Size="25pt"
Font-Name="Tahoma"
Text="Email File Page"
runat="server"
/>





id="lblMessage"
Font-Size="10pt"
Font-Name="Tahoma"
Font-Bold="True"
runat="server"
/>
id="pnlForm"
runat="server"
>



File Name:


id="ddlFiles"
runat=server
DataTextField="FileTitle"
DatavalueField="FileName">




Your Email Address:


id="txtEmailAddress"
Columns="25"
MaxLength="50"
runat=server
/>
id="rfvEmailAddress"
ControlToValidate="txtEmailAddress"
Display="Dynamic"
Font-Name="Verdana"
Font-Size="10pt"
runat=server>
Email Address is Required!




id="butOK"
text=" OK "
Type="Submit"
onClick="SubmitBtn_Click"
runat="server"
/>

我知道，但不知道怎么做？？？