.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
Send Email and Attachments with ASP.Net...

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站


By: John Kilgo Date: December 10, 2002 Download the code. Printer Friendly Version


In this example you will see how to send email and one way of sending attachments from within an .aspx file. The text boxes for the various components of the email are wrapped in a panel control, so if you have not used panels, you can learn a little about that .net control.

The example uses an aspx page as well as a code-behind page. We will first look at the aspx page. Notice the opening tag of the panel control near the top of the program. Its properties should be pretty much self explanatory. The closing tag for the panel is near the bottom of the page. Notice also the enctype attribute on the <form> line. The enctype is necessary because we are using the htmlinput control to locate attachments. HtmlInput is normally used for uploading files from your file system to a server. Here, however, we are using only its browsing component to locate attachments you may want to include.

The rest of the page are simple TextBoxes to hold the elements of an email such as From (which needs to be in email format), To, Subject, etc. A button is also included to initiate the send operation. The code-behind page is mainly the click event code for the submit button.

<html>
<body>
<h3>Email with .NET</h3>
<asp:Panel ID="panel1" Runat="Server" Font-Name="Verdana"
          BorderStyle="Ridge" BorderColor="MidnightBlue" BackColor="Ivory"
          width="50%">
<form id="Form1" runat="server" enctype="multipart/form-data">
<table>
  <tr>
    <td align="right">From:</td>
    <td align="left"><asp:TextBox ID="txtFrom" Runat="Server" /></td>
  </tr>
  <tr>
    <td align="right">To:</td>
    <td align="left"><asp:TextBox ID="txtTo" Runat="Server" /></td>
  </tr>
  <tr>
    <td align="right">Subject:</td>
    <td align="left"><asp:TextBox ID="txtSubject" Runat="Server" /></td>
  </tr>
  <tr>
    <td align="right">Message Body:</td>
    <td align="left">
      <asp:TextBox ID="txtMessage" TextMode="MultiLine" rows="6"
        Runat="Server" />
    </td>
  </tr>
  <tr>
    <td align="right">Priority:</td>
    <td align="left">
      <asp:DropDownList ID="ddlPriority" Runat="Server">
        <asp:ListItem>Low</asp:ListItem>
        <asp:ListItem>Normal</asp:ListItem>
        <asp:ListItem>High</asp:ListItem>
      </asp:DropDownList>
    <td>
  </tr>
  <tr>
    <td align="right">CC:</td>
    <td align="left"><asp:TextBox ID="txtCC" Runat="Server" /></td>
  </tr>
  <tr>
    <td align="right">BCC:</td>
    <td align="left"><asp:TextBox ID="txtBCC" Runat="Server" /></td>
  </tr>
  <tr>
    <td align="right">Select File to Attach:</td>
    <td align="left">
      <INPUT type="file" id="txtAttachment" runat="server" NAME="txtAttachment">
    </td>
  </tr>
  <tr>
    <td colspan="2" align="center">
      <asp:Button ID="btnSend" Text="Send" Type="Submit"
                  OnClick="btnSend_Click" runat="Server" />
    </td>
  </tr>
</table>
</form>
</asp:Panel>
</body>
</html>
Now for the code-behind file. First the NameSpace Imports. Notice that System.Web.Mail is included. Also notice that System.Web.UI.HtmlControls is also included. We must have that to work with the HtmlInput control that we use for browsing for an attachment. System.IO is needed because we must determine the full directory path for the attachment.
Imports System
Imports System.Web.Mail
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.IO
Next is the declaration of the main class and declaration of the html and web controls we us in the program.
Public Class SendEmail : Inherits Page

  Protected txtFrom As TextBox
  Protected txtTo As TextBox
  Protected txtSubject As TextBox
  Protected txtMessage As TextBox
  Protected ddlPriority As DropDownList
  Protected txtCC As TextBox
  Protected txtBCC As TextBox
  Protected txtAttachment As HtmlInputFile
Next is the button_click event where all the work is done. First the top of the code where we dimension the variables and objects we will need. We create both MailMessage and a SmtpMail objects. We also create a MailAttachment object. Next we get the contents of the HtmlInput control (postedFile) and dimension a variable to hold the path to the attachment. Notice that the "strPath =" line is inside a try-catch block. If you are not sending an attachment .Net chokes if you try to get the path to a null attachment object.
  Public Sub btnSend_Click(Sender As Object, e As EventArgs)
    Dim objMail As New MailMessage
    Dim objConn As SmtpMail
    Dim objAttach As MailAttachment
    Dim postedFile = txtAttachment.PostedFile
    Dim strPath As String = ""

    Try
      strPath = Path.GetFullPath(postedFile.FileName)
    Catch
    End Try
Now for the real work. For the most part properties of the MailMessage object (objMail) are being set to the contents of the textboxes and the message priority DropDownListBox. Notice again that the attachment object (objAttach) and the objMail.Attachements.Add are set within a Try-Catch block. Once again this is to protect against the possibility that no attachment is being sent.
    objMail.From = txtFrom.Text
    objMail.To = txtTo.Text
    objMail.Subject = txtSubject.Text
    objMail.Body = txtMessage.Text
    If ddlPriority.SelectedItem.Text = "Low" Then
      objMail.Priority = MailPriority.Low
    ElseIf ddlPriority.SelectedItem.Text = "Normal" Then
      objMail.Priority = MailPriority.Normal
    Else
      objMail.Priority = MailPriority.High
    End If
    objMail.Cc = txtCC.Text
    objMail.Bcc = TxtBCC.Text

    Try
      objAttach = New MailAttachment(strPath)
      objMail.Attachments.Add(objAttach)
    Catch
    End Try

    objConn.Send(objMail)
  End Sub

End Class
Conclusion: You have just seen most of the properties and methods of the Mail and Smtp objects at work.


相关文章

相关软件