| 在Web上利用System.Web.Mail发送EMail |
| 作者：中国资讯网 来源：zixuen.com 加入时间：2005-5-12 www.cnitrc.com |
|
这是个vb.net的例子~
Email.aspx
<%@ Page Language="vb"
AutoEventWireup="false"
Codebehind="Email.aspx.vb"
Inherits="asif.SendEmail"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>SendEmail</title>
<meta name="vs_showGrid" content="True">
<meta content="Microsoft Visual Studio.NET 7.0"
name="GENERATOR">
<meta content="Visual Basic 7.0" name="CODE_LANGUAGE">
<meta content="JavaScript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5"
name="vs_targetSchema">
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:Label id=Label5 runat="server" Width="464px"
Font-Size="Large" Font-Bold="True" ForeColor="Blue"
style="Z-INDEX: 100; LEFT: 140px; POSITION: absolute;
TOP: 42px">
Sending Email from ASP.NET WebPage
</asp:Label>
<asp:TextBox id=txtFrom runat="server" Width="169px"
style="Z-INDEX: 101; LEFT: 236px; POSITION: absolute;
TOP: 104px">
</asp:TextBox>
<asp:Label id=Label1 runat="server" Font-Bold="True"
Font-Names="Arial" Font-Size="Smaller"
style="Z-INDEX: 102; LEFT: 140px; POSITION: absolute;
TOP: 106px">
From:
</asp:Label>
<asp:RequiredFieldValidator id=RequiredFieldValidator1
runat="server" Font-Size="X-Small"
ErrorMessage="*RequiredField" ControlToValidate="txtFrom"
style="Z-INDEX: 103; LEFT: 413px; POSITION: absolute;
TOP: 111px">
</asp:RequiredFieldValidator>
<asp:TextBox id=txtTo runat="server" Width="168px"
style="Z-INDEX: 104; LEFT: 236px; POSITION: absolute;
TOP: 137px">
</asp:TextBox>
<asp:Label id=Label2 runat="server" Font-Bold="True"
Font-Names="Arial" Font-Size="Smaller"
style="Z-INDEX: 105; LEFT: 140px; POSITION: absolute;
TOP: 138px">
To:
</asp:Label>
<asp:RequiredFieldValidator id=RequiredFieldValidator4
runat="server" Font-Size="X-Small"
ErrorMessage="*RequiredField" ControlToValidate="txtTo"
style="Z-INDEX: 106; LEFT: 417px; POSITION: absolute;
TOP: 145px">
</asp:RequiredFieldValidator>
<asp:TextBox id=txtSubject runat="server" Width="168px"
style="Z-INDEX: 107; LEFT: 236px; POSITION: absolute;
TOP: 171px">
</asp:TextBox>
<asp:Label id=Label4 runat="server" Font-Bold="True"
Font-Names="Arial" Font-Size="Smaller"
style="Z-INDEX: 108; LEFT: 140px; POSITION: absolute;
TOP: 173px">
Subject:
</asp:Label>
<asp:RequiredFieldValidator id=RequiredFieldValidator2
runat="server" Font-Size="X-Small"
ErrorMessage="*RequiredField"
ControlToValidate="txtSubject" style="Z-INDEX: 109;
LEFT: 417px; POSITION: absolute; TOP: 177px">
</asp:RequiredFieldValidator>
<asp:TextBox id=txtMessage runat="server"
TextMode="MultiLine" Width="349px" Height="188px"
style="Z-INDEX: 110; LEFT: 236px; POSITION: absolute;
TOP: 214px">
</asp:TextBox>
<asp:Label id=Label3 runat="server" Font-Bold="True"
Font-Names="Arial" Font-Size="Smaller"
style="Z-INDEX: 111; LEFT: 140px; POSITION: absolute;
TOP: 218px">
Message:
</asp:Label>
<asp:RequiredFieldValidator id=RequiredFieldValidator3
runat="server" Font-Size="X-Small"
ErrorMessage="*RequiredField"
ControlToValidate="txtMessage" style="Z-INDEX: 112;
LEFT: 591px; POSITION: absolute; TOP: 222px">
</asp:RequiredFieldValidator>
<asp:Button id=cmdSendEmail runat="server"
Text="Send Email" Width="165px" Font-Bold="True"
style="Z-INDEX: 113; LEFT: 236px; POSITION: absolute;
TOP: 418px">
</asp:Button>
<asp:Label id=lblMessage style="Z-INDEX: 114; LEFT: 141px;
POSITION: absolute; TOP: 76px" runat="server"
Font-Size="Small" Width="373px" Visible="False">
</asp:Label>
</form>
</body>
</HTML>
Email.aspx.vb
Imports System.Web.Mail
Public Class SendEmail
Private Sub cmdSendEmail_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles cmdSendEmail.Click
Dim objMail As New MailMessage()
objMail.From = Me.txtFrom.Text.ToString
objMail.To = Me.txtTo.Text.ToString
objMail.Subject = Me.txtSubject.Text.ToString
objMail.Body = Me.txtMessage.Text.ToString
objMail.BodyFormat = MailFormat.Html
SmtpMail.Send(objMail)
Me.lblMessage.Text = "Email has been sent"
End Sub
End Class
 |
|
|
未经书面授权严禁转载和复制本站的任何招聘信息和文章