Web上利用System.Web.Mail发送EMail

添加人:iyond七级(4372分)   添加时间:2007-05-09    阅读次数:864  收藏此教程

这是个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  

1页 第1上一页1下一页
相关的教程: email
收藏此教程

当前平均分: 0.0(0 次打分)

-5-4-3-2-1012345
评论主题
您的大名
您的评论
验证码 点击换一个验证码
知识库搜索: