Cómo: Crear mensajes de correo electrónico programadas mediante WSH y CDONTS

Seleccione idioma Seleccione idioma
Id. de artículo: 221495 - Ver los productos a los que se aplica este artículo
Recomendamos encarecidamente que todos los usuarios actualizar a Microsoft Internet Information Services (IIS) versión 7.0 que se ejecutan en Microsoft Windows Server 2008. IIS 7.0 aumenta notablemente la seguridad de la infraestructura Web. Para obtener más información acerca de temas relacionados con la seguridad IIS, visite el siguiente sitio Web de Microsoft:
http://www.microsoft.com/technet/security/prodtech/IIS.mspx
Para obtener más información acerca de IIS 7.0, visite el siguiente sitio Web de Microsoft:
http://www.iis.net/default.aspx?tabid=1
Expandir todo | Contraer todo

En esta página

Resumen

De forma predeterminada, Microsoft Windows NT 4.0 con el Windows NT Option Pack (NTOP) y Microsoft Windows 2000 instalar un servicio simple de transferencia de correo (SMTP) que puede utilizarse para una serie de propósitos. Uno de los usos más comunes es Active Server Pages (ASP) para control de formulario HTML basado en correo electrónico.

En este artículo paso a paso describe cómo crear correo-interrupciones programadas mediante Windows Script Host (WSH) y las características de correo electrónico de objeto de CDONTS.NewMail del servicio SMTP. El ejemplo muestra cómo crear un archivo de texto que puede actualizar para el contenido del mensaje de correo electrónico, una secuencia de comandos WSH para enviar un mensaje de correo electrónico y una tarea programada para programar el mensaje de correo electrónico que se enviará.


Comprobar que se está ejecutando el servicio Programador

  • En un equipo que ejecuta Windows NT 4.0 y 4.0 de Internet Information Server (IIS):
    1. Haga clic en Inicio , haga clic en configuración y, a continuación, haga clic en Panel de control .
    2. En el panel de control, haga doble clic en servicios .
    3. Desplácese hacia abajo hasta el servicio Programador de tareas .
    4. Compruebe que estado indica iniciado . Si no se establece el estado a iniciado , haga clic para seleccionar el Programador de tareas y, a continuación, haga clic en Inicio .
    5. Compruebe que Inicio indica automáticas . Si Inicio no está establecido en automático , haga clic para seleccionar el Programador de tareas y, a continuación, haga clic en Inicio . En Tipo de inicio , haga clic para seleccione automático y, a continuación, haga clic en Aceptar .
    6. Haga clic en Cerrar .
    7. Para salir, cierre el panel de control.
  • En un equipo que ejecuta Windows 2000 y servicios de Internet Information Server (IIS) 5.0:
    1. Haga clic en Inicio , haga clic en configuración y, a continuación, haga clic en Panel de control .
    2. Haga doble clic en Herramientas administrativas y, a continuación, haga doble clic en Administración de equipos .
    3. En el panel izquierdo de la ventana Administración de equipos, expanda servicios y aplicaciones y, a continuación, haga clic en para seleccionar servicios .
    4. En el panel derecho de la ventana Administración de equipos, desplazarse por la lista de servicios en la columna nombre .
    5. Desplácese hacia abajo hasta el servicio Programador de tareas .
    6. Compruebe que estado indica iniciado . Si no se inicia el servicio, haga clic con el botón secundario en el servicio Programador de tareas y, a continuación, haga clic en para seleccionar el Inicio .
    7. Compruebe que el Tipo de inicio indica automáticas . Si no está establecido el Tipo de inicio en automático , haga clic con el botón secundario en el servicio Programador de tareas y, a continuación, haga clic en Propiedades . Aparecerá la ventana de service_name con la ficha General seleccionada. Tenga en cuenta que puede hacer clic en las otras fichas en la parte superior de la ventana para ver otras opciones. Haga clic en la flecha desplegable junto a tipo de inicio y, a continuación, seleccione automático .
    8. Haga clic en Aceptar .
    9. Para salir, cierre la ventana Administración de equipos.

Crear el archivo de correo electrónico

  1. Abra el Bloc de notas. Para ello, haga clic en Inicio , haga clic en Ejecutar , escriba NOTEPAD y, a continuación, haga clic en Aceptar .
  2. Pegue las líneas siguientes en el Bloc de notas:
    <p>This is line 1.</p>
    <p>This is line 2.</p>
    					
  3. En el Bloc de notas, haga clic en el menú archivo , haga clic en Guardar como , escriba C:\Mailout.txt en el cuadro de texto nombre de archivo y, a continuación, haga clic en Aceptar .
  4. Para salir, cierre el Bloc de notas.

Crear la secuencia de comandos WSH

  1. Abra el Bloc de notas. Para ello, haga clic en Inicio , haga clic en Ejecutar , escriba NOTEPAD y, a continuación, haga clic en Aceptar .
  2. Pegue las líneas siguientes en el Bloc de notas: Nota : debe especificar una dirección de correo electrónico válida. Para ello, personalizar el remitente y receptor cambiando el valor de las variables strFrom y strTo en el siguiente código:
    '--------------------------------------------------------------------
    '
    ' Mailout using CDONTS.NewMail
    '
    '--------------------------------------------------------------------
    
    ' Declare all variables.
    Option Explicit
    Dim objSendMail
    Dim strTo, strFrom
    Dim strSubject, strBody
    
    ' Mail constants (some are for reference).
    Const CdoBodyFormatHTML = 0 ' Body property is HTML
    Const CdoBodyFormatText = 1 ' Body property is plain text (default)
    Const CdoMailFormatMime = 0 ' NewMail object is in MIME format
    Const CdoMailFormatText = 1 ' NewMail object is plain text (default)
    Const CdoLow    = 0         ' Low importance
    Const CdoNormal = 1         ' Normal importance (default)
    Const CdoHigh   = 2         ' High importance
    
    strFrom    = "someone@microsoft.com"  ' Change to your e-mail address.
    strTo      = "someone@microsoft.com"  ' Change to the recipient address.
    strSubject = "Test Message"          ' Change to your subject.
    
    ' This line calls the ReadFile() function to read the page contents.
    strBody = ReadFile("C:\MAILOUT.TXT")
    
    ' This line calls the MakePage() function to format the page as HTML.
    strBody = MakePage(strSubject,strBody)
    
    ' The following section creates the mail object and sends the mail.
    Set objSendMail = CreateObject("CDONTS.NewMail")
    	objSendMail.From    = strFrom
    	objSendMail.To      = strTo
    	objSendMail.Subject = strSubject & " (" & Date() & ")"
    	objSendMail.Body    = strBody
    
    	objSendMail.BodyFormat = CdoBodyFormatHTML
    	objSendMail.MailFormat = CdoMailFormatMime
    	objSendMail.Importance = CdoNormal
    
    	objSendMail.Send
    Set objSendMail = Nothing
    
    ' This function returns a properly formatted HTML page.
    Function MakePage(txtSubject, txtBody)
    	Dim txtTemp
    	txtTemp = "<HTML>" & vbCrLf
    	txtTemp = txtTemp & "<HEAD><TITLE>"
    	txtTemp = txtTemp & txtSubject
    	txtTemp = txtTemp & "</TITLE></HEAD>" & vbCrLf
    	txtTemp = txtTemp & "<BODY>" & vbCrLf
    	txtTemp = txtTemp & "<H2>" & txtSubject & "</H2>" & vbCrLf
    	txtTemp = txtTemp & txtBody & vbCrLf
    	txtTemp = txtTemp & "</BODY>" & vbCrLf
    	txtTemp = txtTemp & "</HTML>"
    	MakePage = txtTemp
    End Function
    
    ' This function opens a file and returns the contents of the file.
    Function ReadFile(txtFile)
    	Dim txtTemp, objFS, objFL
    	Set objFS = CreateObject("Scripting.FileSystemObject")
    	Set objFL = objFS.OpenTextFile(txtFile)
    	Do While Not objFL.AtEndOfStream
    		txtTemp = txtTemp & objFL.ReadLine
    		txtTemp = txtTemp & vbCrLf
    	Loop	
    	objFL.Close
    	Set objFS = Nothing
    	ReadFile = txtTemp
    End Function
    					
  3. En el Bloc de notas, haga clic en el menú archivo , haga clic en Guardar como , escriba C:\mailout.vbs en el cuadro de texto nombre de archivo y, a continuación, haga clic en Aceptar .
  4. Para salir, cierre el Bloc de notas.

Crear una tarea para programar el correo de salida para ser enviados

  1. Haga clic en Inicio , haga clic en Ejecutar , escriba CMD y, a continuación, haga clic en Aceptar para abrir un símbolo del sistema.
  2. En la ventana del símbolo del sistema, escriba algo parecido a los ejemplos siguientes:
    • La siguiente tarea ejecuta una vez a las 9: 00 P.M.
      AT 9:00pm Cscript.exe C:\Mailout.vbs
    • Esta tarea ejecuta todos los lunes a las 6: 00 A.M.
      AT 6:00am /every:M Cscript.exe C:\Mailout.vbs
    • Esta tarea se ejecuta en la primera de cada mes 1: 00 a.m.
      AT 1:00am /every:1 Cscript.exe C:\Mailout.vbs
      Nota : dependiendo de cuál de estos ejemplos elige, el mensaje de correo electrónico se envía a la hora programada.

  3. Escriba EXIT para cerrar el símbolo del sistema.

Referencias

Para obtener más información acerca de las tecnologías de secuencias de comandos de Microsoft, visite el siguiente sitio Web de Microsoft Developer Network (MSDN):
http://msdn2.microsoft.com/en-us/library/ms950396.aspx

Propiedades

Id. de artículo: 221495 - Última revisión: jueves, 03 de julio de 2008 - Versión: 4.1
La información de este artículo se refiere a:
  • Microsoft Internet Information Server 4.0
  • Microsoft Internet Information Services 5.0
Palabras clave: 
kbmt kbhowtomaster KB221495 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 221495

Enviar comentarios

 

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