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

文章翻译 文章翻译
文章编号: 186204 - 查看本文应用于的产品
展开全部 | 关闭全部

概要

本文包含一个示例,说明如何从用户收集信息,在一个.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 库)

属性

文章编号: 186204 - 最后修改: 2005年4月28日 - 修订: 2.1
这篇文章中的信息适用于:
  • Microsoft Collaboration Data Objects 1.2 for NT Server
关键字:?
kbmt kbhowto kbhtml kbmsg KB186204 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 186204
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。
不再更新的 KB 内容免责声明
本文介绍那些 Microsoft 不再提供支持的产品。因此本文按“原样”提供,并且不再更新。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com