|
[申明：必須自己試驗才能看到效果�。�)]
ASP+中、想傳送Email，須使用以上兩個對象，其中Mailmessage用設定Email的內容、而Smtpmail則是將
Email出去，程序框架如下：
<%@import namespace="system.web.uit"%>
dim mail as new mailmessage'建立一個mailmessage對象
mail.to=收件人
mail.form=送件人
mail.subject=主題
mail.bodyformat=格式
mail.body=內容
smtpmail.send(mail)
由于以上兩個對象類別收錄于system.web.util namespace,所以<%@import namespace="system.web.uit"%>
標記是必要的。先讓我們看一下下面的源程序：
<%@ Import Namespace="System.Web.Util" %>
<Html>
<Body BgColor="White">
<H2>ASP+ Email發送程序!<Hr></H2>
<Form runat="server">
<Table Border=1>
<Tr>收件人：</
<Input Type="Text" id="mailTo" Size=40 runat="server"/></</Tr>
<Tr>發件人：</
<Input Type="Text" id="mailFrom" Size=40 runat="server"/></</Tr>
<Tr>主題：</
<Input Type="Text" id="mailSubject" Size=40 runat="server"/></</Tr>
<Tr>內容：</
<TextArea id="mailBody" Rows=8 Cols=60 runat="server">
</TextArea>
</</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
mail.BodyFormat=mail.format.text
mail.Body= mailBody.Value
SmtpMail.Send(mail)
Label1.Text = "已成功發送!"
End Sub
</script>
通過讀取表單的mailto、mailform、mailsubject、mailbody，然后分別指定給mail對象的to,form,submit,body屬性，最后調用smtpmail送出郵件！
呵呵，寫東東還真累�。〔贿^也完工了，大家自己試試吧！
|
![運用MailMessage及SmtpMail對象完成Email自動傳送[原創]](http://img.luoboxitong.cn/upload/noimg.jpg)