你目前正处于脱机状态,正在等待 Internet 重新连接

如何使用 CDONTS 收集和从用户的邮件信息

注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版: 186204
不再更新的 KB 内容免责声明
本文介绍那些 Microsoft 不再提供支持的产品。因此本文按“原样”提供,并且不再更新。
概要
本文包含一个示例,说明如何从用户收集信息,在一个.htm 页上,然后使用该信息发送给使用 SMTP 上的协作数据对象的 Windows NT 服务器 (CDONTS) 收件人的邮件。本文包含的代码示例为 HTM 和 ASP 文件以及如何配置您的 Microsoft 管理控制台 (MMC) 默认 SMTP 服务器的信息。
更多信息
用于发送邮件与 NewMail 对象 CDONTS 的语法如下所示:
   objNewMail.Send([From][, To][, Subject][, Body][, Importance] )   objNewMail      Required. This NewMail object.   From      Optional. String. The full messaging address to be identified as      the sender (for example, someone@Microsoft.com)   To     Optional. String. A list of full messaging addresses of recipients.     The individual recipient addresses are separated by semicolons.     (for example, someone@Microsoft.com)   Subject      Optional. String. The subject line for the message.   Body      Optional. IStream object or String. The text of the message. Only      C/C++ and Java programs can use an IStream object for the Body      parameter. They should pass an IUnknown object that returns an      IStream interface in response to QueryInterface. Microsoft Visual      Basic supports the IDispatch interface and not IUnknown, so it      cannot use an IStream object.   Importance      Optional. Long. The importance associated with the message, High,      Normal or Low.  This article sets the required value depending upon      which option button the user selects.				
  1. 复制并粘贴到一个名为 CDONTSMail.HTM 的文件的下列 HTML 代码:
          <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">      <html>      <head>      <meta http-equiv="Content-Type"      content="text/html; charset=iso-8859-1">      <meta name="GENERATOR"      content="Microsoft FrontPage (Visual InterDev Edition) 2.0">      <title>CDONTSMail</title>      </head>      <body bgcolor="#FFFFFF">      <form action="CDONTSMail.asp" method="POST">      <table border="0">         <tr>            <td>From:</td>            <td><!--webbot bot="Validation"               b-value-required="TRUE" --><input type="text"               size="47" name="txtFrom"               value="Your internet address (Me@MyCompany.com)"></td>         </tr>         <tr>            <td>To:</td>            <td><!--webbot bot="Validation"               b-value-required="TRUE" --><input type="text"               size="47" name="txtTo"               value="The recipient's address (You@YourCompany.com)"></td>         </tr>         <tr>            <td>Subject:</td>            <td><input type="text" size="47" name="txtSubject"               value="Enter a subject here"></td>         </tr>         <tr>            <td valign="top">Message:</td>            <td><textarea name="txtMessage" rows="9" cols="45">               Type your message here.</textarea></td>         </tr>         <tr>            <td valign="top">Importance:</td>            <td><input type="radio" name="optImportance"               value="2">High<br>               <input type="radio" checked name="optImportance"               value="1">Normal<br>               <input type="radio" name="optImportance" value="0">Low<br>            </td>         </tr>      </table>      <p><input type="submit" name="cmdSubmit" value="Submit">      <input type="reset" name="cmdClear" value="Clear"> </p>      </form>      </body>      </html>						
  2. 将下面的 VBScript 代码粘贴到一个名为 CDONTSMail.ASP 的文件:
          <%@ LANGUAGE="VBSCRIPT" %>      <HTML>      <HEAD>      <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">      <META HTTP-EQUIV="Content-Type"       content="text/html;charset=iso-8859-1">      <TITLE>CDONTSMail</TITLE>      <%      Sub Write(strWriteThis)         'This subroutine just writes out whatever is         'passed to it.         response.write(strWriteThis & "<br>")      end sub      %>      </HEAD>      <BODY>      <%         Dim myCDONTSMail         Dim strFrom         Dim strTo         Dim strSubject         Dim strMessage         Dim lngImportance         'The following variable assignments are not required         'they are just here to make interpretation of the         'myCDONTSMail.Send line easier.  You could put the         'Request.Form statements in the .Send line to cut down         'on the amount of code in the file.         strFrom=request.form("txtFrom")         strTo=request.form("txtTo")         strSubject = request.form("txtSubject")         strBody=request.form("txtMessage")         lngImportance = request.form("optImportance")         'The following four lines of code are just here for test         'purposes to see what variables have been pulled in from the         'HTM form.         Write("strFrom = " & strFrom)         Write("strTo = " & strTo)         Write("strSubject = " & strSubject)         Write("strMessage = " & strBody)         Write("Importance = " & lngImportance)         Set myCDONTSMail = CreateObject("CDONTS.NewMail")         myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance         Set myCDONTSMail  = Nothing         Write "Mail has been sent."         %>      </BODY>      </HTML>						
    : 的 NewMail 对象将成为无效的 Send 方法成功完成时,您不能重用它为另一条消息。您应设置它为 Nothing 释放内存。尝试访问已发送的 NewMail 对象结果中返回 CdoE_INVALID_OBJECT。
  3. 配置您的 Internet 信息服务器 (IIS) 的步骤。 若要从您的 IIS 服务器通过 SMTP 服务器 (假设它们不同的计算机) 发送邮件,完成以下步骤:

    1. 在您的 IIS 计算机上打开 Microsoft 管理控制台 (MMC)。
    2. 在左窗格中展开"Internet 信息服务器"部分。
    3. 在左窗格中选择,然后展开您的 IIS 服务器。
    4. 在右窗格中右键单击"默认 SMTP 服务器",然后选择"属性"
    5. 选择"传递"选项卡。
    6. 在"完全合格的域名"文本框中输入 IIS 计算机的名称。
    7. 在"智能主机"文本框中输入您的 SMTP 服务器的名称。
  4. 运行 CDONTSMail.htm 文件在您的浏览器中,输入所需的信息,然后选择提交按钮。

    : 上面的代码要求您输入一个值,在从和到字段。
参考
协作数据对象帮助、 上"协作数据对象的 NTS 组件"搜索、 主题: NewMail 对象 (CDONTS 库)
kbDSupport kbCDONTS kbdse

警告:本文已自动翻译

属性

文章 ID:186204 - 上次审阅时间:04/28/2005 21:27:16 - 修订版本: 2.1

Microsoft Collaboration Data Objects 1.2 for NT Server

  • kbmt kbhowto kbhtml kbmsg KB186204 KbMtzh
反馈