Cómo utilizar la biblioteca de CDOSYS para enviar un mensaje de correo electrónico mediante el puerto SMTP en Visual Basic.NET

Seleccione idioma Seleccione idioma
Id. de artículo: 313775 - 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 biblioteca de Windows 2000 (CDOSYS) para enviar un mensaje de correo electrónico mediante el puerto simple de transferencia de correo (SMTP) en Microsoft Visual Basic. NET.

Más información

Para enviar un mensaje de correo electrónico mediante el puerto SMTP, siga estos pasos:
  1. Inicie Microsoft Visual Studio NET..
  2. En el menú archivo , seleccione nuevo y, a continuación, haga clic en proyecto .
  3. En la lista de tipos de proyectos de Visual Basic , haga clic en Aplicación de consola .

    De forma predeterminada, se crea el archivo Module1.vb.
  4. Agregue una referencia a la CDO para Windows 2000 biblioteca de Microsoft. Para ello, siga estos pasos:
    1. En el menú proyecto , haga clic en Agregar referencia .
    2. Haga clic en la ficha COM , busque CDO para Windows 2000 biblioteca de Microsoft y a continuación, haga clic en seleccionar .
    3. En el cuadro de diálogo Agregar referencias , haga clic en Aceptar .
    4. Si se le pregunta si desea generar contenedores para las bibliotecas que ha seleccionado, haga clic en .
  5. Repita el paso 4 para agregar una referencia a la biblioteca Microsoft ActiveX Data Objects 2.5.
  6. En la ventana de código, reemplace el código con lo siguiente:
    Imports System.Reflection
    
    Module Module1
    
        Sub Main()
            Dim oMsg As CDO.Message = New CDO.Message()
            Dim iConfg As CDO.Configuration
            Dim oFields As ADODB.Fields
            Dim oField As ADODB.Field
     
            iConfg = oMsg.Configuration
            oFields = iConfg.Fields
    
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/sendusing")
            oField.Value = CDO.CdoSendUsing.cdoSendUsingPort
    
           ' TODO: Replace with the port that you want to use . It must be the same
           ' port that the SMTP server is using.
           oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
            oField.Value = 25
    
            ' TODO: Replace with your SMTP server.
            oField = oFields("http://schemas.microsoft.com/cdo/configuration/smtpserver")
            oField.Value = "<SMTP Server>"
    
            oFields.Update()
            oMsg.Configuration = iConfg
    
            oMsg.TextBody = "Test message body."
            oMsg.Subject = "Test SMTP Message Send using port"
            oMsg.From = "from@example.com"
            oMsg.To = "to@example.com"
    
            oMsg.Send()
    
            oMsg = Nothing
            iConfg = Nothing
            oFields = Nothing
            oField = Nothing
        End Sub
    
    End Module
    					
  7. Buscar TODO en el código y, a continuación, modifique el código para su entorno.
  8. Presione F5 para generar y ejecutar el programa.
  9. Asegúrese de que el mensaje de correo electrónico se envió y recibió.

Propiedades

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

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