home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASP-ed / _SETUP.1 / maildemo.aspx < prev    next >
Encoding:
Text File  |  2001-02-28  |  938 b   |  31 lines
  1. <%@page language="VB" %>
  2. <%@Import Namespace="System.Web.Util" %>
  3. <HTML><BODY>
  4.  
  5. <SCRIPT LANGUAGE="VB" RUNAT="server">
  6. Sub SendMail (Obj As Object, E As EventArgs)
  7.   Dim mailObj AS new MailMessage
  8.    mailObj.From = Request.Form("From")
  9.    mailObj.To = Request.Form("To")
  10.    mailObj.Subject = "Subject Of the Mail"
  11.    mailObj.Body = "Body of the Mail"
  12.    mailObj.BodyFormat = MailFormat.Html
  13.   ' mailObj.BodyEncoding = MailFormat.Base64
  14.   ' mailObj.Priority = MailPriority.High
  15.   ' mailObj.Attachments.Add(new MailAttachment("c:\test.doc"))
  16.   SmtpMail.Send(mailObj)
  17. End Sub
  18. </SCRIPT>
  19.  
  20. <asp:label ID="Headingmsg" Text="Enter Your Email Address:" RUNAT="server"/>
  21.  
  22. <FORM METHOD="post" RUNAT="server">
  23.  
  24. Email Recipient: <INPUT TYPE="text" NAME="to"> <br>
  25. Email Sender: <INPUT TYPE="text" NAME="from">
  26.  
  27. <INPUT TYPE="submit" NAME="Submit" VALUE="Send Mail" RUNAT="server" OnServerClick="SendMail">
  28.  
  29. </FORM>
  30. </BODY>
  31.