home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_07.cab / CDO_VBScript.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  973 b   |  42 lines
  1. <% @Language=VBScript     %>
  2. <% Option Explicit        %>
  3.  
  4.  
  5. <HTML>
  6.     <HEAD>
  7.         <TITLE>CDO Component</TITLE>
  8.     </HEAD>
  9.  
  10.  
  11.     <BODY bgcolor="white" topmargin="10" leftmargin="10">
  12.         
  13.         <!-- Display Header -->
  14.  
  15.         <font size="4" face="Arial, Helvetica">
  16.         <b>CDO Component</b></font><p>   
  17.  
  18.         This sample demonstrates how to use the Collaboration
  19.         Data Objects for NTS Component to send a simple
  20.         e-mail message.
  21.  
  22.         <p>To actually send the message, you must have the SMTP
  23.         Server that comes with the Windows NT Option Pack Installed.
  24.  
  25.         <%
  26.             Dim myMail
  27.             Set myMail = Server.CreateObject("CDONTS.NewMail")
  28.  
  29.             ' For demonstration proposes, both From and To
  30.             ' properties are set to the same address.
  31.         
  32.             myMail.From = "someone@Microsoft.com"
  33.             myMail.To = "someone@Microsoft.com"
  34.         
  35.             myMail.Subject = "Sample"
  36.             myMail.Body = "I hope you like the sample"
  37.             
  38.             myMail.Send
  39.         %>
  40.     </BODY>
  41. </HTML>
  42.