各位大侠,快点进来看看.邮件系统,为什么只能发一个邮箱呀,其它都不能发呀...很急.................

zhouxujian 2003-10-29 09:58:46

<%@ Import Namespace="System.Web.Mail" %>
<Script Language="VB" Runat="Server">
Sub Send(sender As Object, e As ImageClickEventArgs)
Dim objMail As New MailMessage()
'指定邮件发件人及收件人
objMail.From = FromWho.Text & "<" & FromMail.Text & ">"
objMail.To = ToWho.Text & "<" & ToMail.Text & ">"

'指定邮件格式
Select Case BodyFormat.SelectedITem.Text
Case "Html"
objMail.BodyFormat = MailFormat.Html
Case "Text"
objMail.BodyFormat = MailFormat.Text
End Select

'指定邮件的编码方式
Select Case BodyEncoding.SelectedITem.Text
Case "ASCII"
objMail.BodyEncoding = Encoding.ASCII
Case "Unicode"
objMail.BodyEncoding = Encoding.Unicode
Case "UTF-7"
objMail.BodyEncoding = Encoding.UTF7
Case "UTF-8"
objMail.BodyEncoding = Encoding.UTF8
End Select

objMail.Subject = Subject.Text '指定邮件主题
objMail.Body = Content.Text '指定邮件内容

'使用 SmtpMail 类来发送邮件
SmtpMail.SmtpServer = "21craft.com.cn" '指定 SMTP 服务器的 IP 地址
SmtpMail.Send(objMail)
End Sub
</Script>
<Html>
<Head>
<Title>自动发信服务</Title>
</Head>
<Body>
<Center><Img Src="Title.jpg"></Center>
<Form Runat="Server">
<Table Width="80%" Align="Center" Cellspacing="0" Cellpadding="3">
<Tr BgColor="#FFFFA1">
<Td Width="17%">发件人</Td>
<Td Width="25%">
<Asp:TextBox Runat="Server" Id="FromWho" Columns="7" />
</Td>
<Td Colspan="2" Width="58%">电子邮件信箱
<Asp:TextBox Runat="Server" Id="FromMail" Columns="20" />
</Td>
</Tr>
<Tr BgColor="#FFFFF0">
<Td>收件人</Td>
<Td><Asp:TextBox Runat="Server" Id="ToWho" Columns="7" /></Td>
<Td Colspan="2">电子邮件信箱
<Asp:TextBox Runat="Server" Id="ToMail" Columns="20" />
</Td>
</Tr>
<Tr BgColor="#FFFFA1">
<Td>邮件格式 </Td>
<Td>
<Asp:RadioButtonList Runat="Server" Id="BodyFormat" RepeatColumns="2">
<Asp:ListItem Text="Html" Value="Html" Selected="True" />
<Asp:ListItem Text="Text" Value="Text" />
</Asp:RadioButtonList>
</Td>
<Td>编码方式 </Td>
<Td>
<Asp:RadioButtonList Runat="Server" Id="BodyEncoding" RepeatColumns="4">
<Asp:ListItem Text="ASCII" Value="ASCII" />
<Asp:ListItem Text="Unicode" Value="Unicode" />
<Asp:ListItem Text="UTF-7" Value="UTF-7" />
<Asp:ListItem Text="UTF-8" Value="UTF-8" Selected="True" />
</Asp:RadioButtonList>
</Td>
</Tr>
<Tr BgColor="#FFFFA1">
<Td>邮件主题</Td>
<Td Colspan="3">
<Asp:TextBox Runat="Server" Id="Subject" Columns="40" />
</Td>
</Tr>
<Tr BgColor="#FFFFF0">
<Td>邮件内容</Td>
<Td Colspan="3">
<Asp:TextBox Runat="Server" Id="Content" TextMode="Multiline"
Columns="45" Rows="5" />
</Td>
</Tr>
</Table>
<Center><Br>
<Asp:ImageButton Runat="Server" ImageUrl="send.gif" OnClick="Send" />
</Center>
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="FromWho"
ErrorMessage="发件人" Display="None" />
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="FromMail"
ErrorMessage="发件人电子邮件信箱" Display="None" />
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="ToWho"
ErrorMessage="收件人" Display="None" />
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="ToMail"
ErrorMessage="收件人电子邮件信箱" Display="None" />
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="Subject"
ErrorMessage="主题" Display="None" />
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="Content"
ErrorMessage="内容" Display="None" />
<Asp:ValidationSummary Runat="Server" DisplayMode="BulletList"
ShowMessageBox="True" ShowSummary="False"
HeaderText="错误警告，以下字段不可空白：" />
</Form>
</Body>
</Html>

...全文