关于asp.net的邮件发送，不需任何组件 |
|---|
|
| 2003-04-10 |
| |
<%@ Import Namespace=""System.Web.Mail"" %>
<Html>
<Body BgColor=""White"">
<H2>ASP+ Email 传送<Hr></H2>
<Form runat=""server"">
<Table Border=1>
<Tr><Td>收件人：</Td>
<Td><Input Type=""Text"" id=""mailTo"" Size=40 runat=""server""/></Td></Tr>
<Tr><Td>发件人：</Td>
<Td><Input Type=""Text"" id=""mailFrom"" Size=40 runat=""server""/></Td></Tr>
<Tr><Td>主题：</Td>
<Td><Input Type=""Text"" id=""mailSubject"" Size=40 runat=""server""/></Td></Tr>
<Tr><Td>内容：</Td>
<Td><TextArea id=""mailBody"" Rows=8 Cols=60 runat=""server""></TextArea><Br>
<Asp:RadioButtonList id=""Format"" runat=""server""
RepeatDirection=""Horizontal"" RepeatColumns=""2"">
<asp:ListItem>Html 格式</asp:ListItem>
<asp:ListItem Selected>文本</asp:ListItem>
</Asp:RadioButtonList>
</Td></Tr>
</Table>
<Input Type=""Button"" Value=""送出"" id=""Button1""
OnServerClick=""Button1_Click"" runat=""server""/>
</Form>
<Hr>
<asp:Label id=""Label1"" runat=""server""/>
</Body>
</Html>
<script Language=""VB"" runat=""server"">
Sub Button1_Click(sender As Object, e As EventArgs)
Dim mail As MailMessage = New MailMessage
mail.To = mailTo.Value
mail.From = mailFrom.Value
mail.Subject = mailSubject.Value
If Format.SelectedItem.Text = ""純文字格式"" Then
mail.BodyFormat = MailFormat.Text
Else
mail.BodyFormat = MailFormat.Html
End If
mail.Body = mailBody.Value
SmtpMail.Send(mail)
Label1.Text = ""信件送出!""
End Sub
</script>
|
|
| |
|
发表评论
推荐文章
关闭窗口
|
|
|
|
