文章編號: 186204 - 上次校閱: 2005年4月28日 - 版次: 2.1

如何使用 CDONTS 來收集，以及從使用者的郵件資訊

中英文對照顯示按一下這裡顯示機器翻譯的中英文對照
機器翻譯檢視機器翻譯免責聲明
Retired KB Article依現狀不再更新的知識庫內容免責聲明
檢視此文章適用的產品。
系統提示本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。
全部展開 | 全部摺疊

結論

本文包含範例說明如何從使用者處收集資訊.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 物件失效傳送] 方法的成功完成時，且您不能重複使用的另一則訊息。您應該設定為 Nothing 釋放記憶體。嘗試存取已傳送的 NewMail 物件結果中傳回 CdoE_INVALID_OBJECT。
  3. 設定您的網際網路資訊伺服器 (IIS) 的步驟。 若要從您的 IIS 伺服器透過您 (假設它們不同的電腦) 的 SMTP 伺服器傳送郵件，完成下列步驟：

    1. 在您的 IIS 電腦上開啟 Microsoft 管理主控台 (MMC)。
    2. 在左窗格中，展開 「 網際網路資訊伺服器 」 一節。
    3. 在左窗格中選取並展開您的 IIS 伺服器]。
    4. 在右窗格用滑鼠右鍵按一下 「 預設 SMTP 伺服器 」，然後選取 [內容]
    5. 選取 [＜ 傳遞] 索引標籤。
    6. 在 「 完整格式網域名稱"] 文字方塊中，輸入 [IIS 的電腦名稱。
    7. 智慧型主持] 文字方塊中輸入您的 SMTP 伺服器的名稱。
  4. 在您的瀏覽器中執行 CDONTSMail.htm 檔、 輸入必要的資訊，然後選取 [送出] 按鈕。

    注意： 上面的程式碼會要求您在 [從] 和 [到] 欄位中輸入值。
回此頁最上方

?考

共同作業資料物件說明 ； 「 共同作業資料物件的 NTS 元件 」 的搜尋 ； 主題： 「 NewMail 物件 (CDONTS 程式庫)"
回此頁最上方
這篇文章中的資訊適用於:
  • Microsoft Collaboration Data Objects 1.2 for NT Server
回此頁最上方
關鍵字：?
kbmt kbhowto kbhtml kbmsg KB186204 KbMtzh
回此頁最上方
機器翻譯機器翻譯
重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：186204? (http://support.microsoft.com/kb/186204/en-us/ )
回此頁最上方
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
Retired KB Article依現狀不再更新的知識庫內容免責聲明
本文旨在說明 Microsoft 不再提供支援的產品。因此，本文係依「現狀」提供，不會再更新。
回此頁最上方