Использование CDONTS для сбора и почтовые данные от пользователя

Переводы статьи Переводы статьи
Код статьи: 186204
Развернуть все | Свернуть все

Аннотация

Данная статья содержит пример, в котором описывается, как собирать сведения от пользователя на страницу .htm, а затем использовать эту информацию для отправки почты получателю с использованием совместной работы данных объектов для Windows NT Server (CDONTS) через SMTP. Данная статья содержит примеры кода для файлов HTM и ASP, а также сведения о том, как настроить сервер SMTP в консоли управления (MMC) по умолчанию.

Дополнительная информация

Для отправки сообщений с помощью объекта 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. Скопируйте и вставьте следующий код HTML в файле с именем CDONTSMail.HTM:
          <!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. Действия, чтобы настроить Internet Information Server (IIS). Чтобы отправить сообщение с сервера IIS через SMTP-сервера (при условии, что они являются компьютерами), выполните следующие действия:

    1. На компьютере служб IIS откройте консоль управления (MMC).
    2. В левой области разверните узел «Internet Information Server» раздела.
    3. В левой области выберите и разверните сервер IIS.
    4. На правой панели щелкните правой кнопкой мыши «Сервер SMTP по умолчанию» и выберите "Свойства"
    5. Выберите вкладку «Доставка».
    6. В текстовом поле «Полностью определенное имя домена» введите IIS имя компьютера.
    7. В текстовом поле «Смарт-узел» введите имя SMTP-сервера.
  4. Запустите файл CDONTSMail.htm в обозревателе, введите требуемые сведения и нажмите кнопку Отправить.

    Примечание.: В приведенном выше коде необходимо ввести значение в поле From и поля.

Ссылки

Справка объекты данных совместной работы; поиск «Объекты совместной работы для NTS компонент»; раздела: «Объект NewMail (CDONTS библиотеки)»

Свойства

Код статьи: 186204 - Последний отзыв: 15 ноября 2010 г. - Revision: 2.0
Ключевые слова: 
kbhowto kbhtml kbmsg kbmt KB186204 KbMtru
Переведено с помощью машинного перевода
ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.
Эта статья на английском языке:186204
Заявление об отказе относительно содержимого статьи о продуктах, поддержка которых прекращена
Эта статья содержит сведения о продуктах, поддержка которых корпорацией Майкрософт прекращена. Поэтому она предлагается как есть и обновляться не будет.

Отправить отзыв

 

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