Cómo enviar mensajes de correo electrónico con CDOSYS y el directorio de SMTP local con Visual Basic .NET

Seleccione idioma Seleccione idioma
Id. de artículo: 313773 - Ver los productos a los que se aplica este artículo
Precaución ADO y ADO MD han no ha probado completamente en un entorno de Microsoft .NET Framework. Puede producir problemas intermitentes, especialmente en aplicaciones basadas en servicios o en aplicaciones multiproceso. Las técnicas que se tratan en este artículo sólo deben utilizarse como medida temporal durante la migración a ADO.NET. Sólo debe utilizar estas técnicas después de que ha realizado pruebas completo para Asegúrese de que no hay ningún problema de compatibilidad. Cualquier problema que causadas por utilizar ADO o ADO MD de esta manera es incompatible. Para obtener más información, vea el artículo siguiente en Microsoft Knowledge Base:
840667 Recibe errores inesperados al utilizar ADO y ADO MD en una aplicación de .NET Framework
Expandir todo | Contraer todo

Resumen

En este artículo describe cómo utilizar los objetos de datos de colaboración (CDO) para Microsoft Windows 2000 biblioteca y el directorio local de SMTP para enviar un mensaje de correo electrónico HTML mediante Microsoft Visual Basic. NET. Debe ejecutar este ejemplo en un servidor que tiene un servicio SMTP en ejecución para enviar el mensaje de correo electrónico.

Más información

  1. Inicie Microsoft Visual Studio NET..
  2. En el menú archivo , seleccione nuevo y, a continuación, haga clic en proyecto .
  3. En Tipos de proyecto , haga clic en Proyectos de Visual Basic .
  4. En plantillas , haga clic en Aplicación de consola y, a continuación, haga clic en Aceptar .

    De forma predeterminada, se crea Module1.vb.
  5. Agregue una referencia a Microsoft CDO para la biblioteca de Windows 2000. Para ello, siga estos pasos:
    1. En el menú proyecto , haga clic en Agregar referencia .
    2. En la ficha COM , haga clic en CDO para Windows 2000 biblioteca y, a continuación, haga clic en seleccionar .
    3. En el cuadro de diálogo Agregar referencias , haga clic en Aceptar para aceptar sus selecciones. Si recibe un mensaje para generar contenedores para las bibliotecas que ha seleccionado, haga clic en .
  6. Siga los pasos 5a mediante c 5 para agregar una referencia a la biblioteca Microsoft ActiveX Data Objects 2.5.
  7. En la ventana de código, reemplace todo el código con:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            oMsg.From = "from@microsoft.com"
            oMsg.To = "to@microsoft.com"
            oMsg.Subject = "CdoSys HTML mail in VB.NET (pickup)"
    
            Dim sHtml As String
            sHtml = "<HTML>" & _
             "<HEAD>" & _
             "<TITLE>Simple CDOSYS Message</TITLE>" & _
             "</HEAD>" & _
             "<BODY><P>" & _
             "<h1><Font Color=Green>Simple CDOSYS HTML Message</Font></h1>" & _
             "</BODY>" & _
             "</HTML>"
    
            oMsg.HTMLBody = sHtml
    
            ' Set configuration.
            Dim iConfg As CDO.Configuration = New CDO.Configuration()
    
            Dim oFields As ADODB.Fields
            oFields = iConfg.Fields
    
            Dim oField As ADODB.Field
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = 1   ' Sets the configuration to use the local SMTP server.
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  8. Busque "TODO" en el código y, a continuación, modifique el código para su entorno.
  9. Presione F5 para generar y ejecutar el programa.
  10. Compruebe que el mensaje de correo electrónico tiene ha enviado y recibido.

Propiedades

Id. de artículo: 313773 - Última revisión: jueves, 29 de noviembre de 2007 - Versión: 3.2
La información de este artículo se refiere a:
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Collaboration Data Objects 2.0
Palabras clave: 
kbmt kbmsg kbcode kbxml kbhowtomaster KB313773 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): 313773

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