Cómo enviar correo desde Visual Basic mediante CDO 1.x biblioteca

Seleccione idioma Seleccione idioma
Id. de artículo: 161833 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

INTRODUCCIÓN

En este artículo se describe cómo enviar mediante programación un mensaje de correo electrónico desde Visual Basic mediante el uso de los objetos de datos de colaboración (CDO 1.x) bibliotecas. En este ejemplo se supone que el 1 de CDO.x se instaló correctamente en el equipo. Para obtener más información, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
171440 Dónde adquirir las bibliotecas de CDO (todas las versiones)
El ejemplo de código también puede utilizarse desde Visual Basic para Aplicaciones (VBA), que permite el acceso, Excel o proyecto enviar mensajes de correo electrónico a través de CDO 1.Biblioteca de x .

Más información

Con el objeto CDO 1.biblioteca de x , puede rápida y fácilmente agregar e mailcapabilities a la aplicación de Visual Basic. Estas capacidades incluyen enviar y recibir mensajes de correo electrónico e interactuar con las carpetas y libretas de direcciones. Puede crear objetos de mensajería programables y, a continuación, utilizar sus propiedades y métodos para satisfacer las necesidades de la aplicación.

Los objetos y los métodos expuestos por el 1 de CDO.biblioteca de x son mucho más completo que los controles MAPI que se suministran con Visual Basic. Como resultado, tendrá acceso a muchas propiedades MAPI que no enfrentan los controles MSMAPI OCX simplemente.

Código de ejemplo

Para generar un proyecto de Visual Basic envía un mensaje simple, siga estos pasos:
  1. Abra un nuevo proyecto en Visual Basic.
  2. En el menú Herramientas, elija referencias y seleccione la biblioteca de Microsoft CDO 1.21.
  3. Agregar un objeto CommandButton al formulario predeterminado. Acepte el nombre predeterminado Command1.
  4. Copie el código siguiente en la sección de declaraciones generales del formulario predeterminado.
         Option Explicit
    
         Private Sub Command1_Click()
           Dim objSession As Object
           Dim objMessage As Object
           Dim objRecipient As Object
    
           'Create the Session Object.
           Set objSession = CreateObject("mapi.session")
    
           'Logon using the session object.
           'Specify a valid profile name if you want to.
           'Avoid the logon dialog box.
           objSession.Logon profileName:="MS Exchange Settings"
    
           'Add a new message object to the OutBox.
           Set objMessage = objSession.Outbox.Messages.Add
    
           'Set the properties of the message object.
           objMessage.subject = "This is a test."
           objMessage.Text = "This is the message text."
    
           'Add a recipient object to the objMessage.Recipients collection.
           Set objRecipient = objMessage.Recipients.Add
    
           'Set the properties of the recipient object.
           objRecipient.Name = "John Doe"  '<---Replace this with a valid
                                           'display name or e-mail alias
           'Type can be ActMsgTo, mapiTo, or CdoTo for different CDO versions;
           'they all have a constant value of 1.
           objRecipient.Type = mapiTo
           objRecipient.Resolve
    
           'Send the message.
           objMessage.Send showDialog:=False
           MsgBox "Message sent successfully!"
    
           'Logoff using the session object.
           objSession.Logoff
         End Sub
    					
  5. Ejecute el proyecto. Haga clic en Command1. Se ha enviado el correo electrónico desde Visual Basic.

Propiedades

Id. de artículo: 161833 - Última revisión: jueves, 6 de febrero de 2014 - Versión: 5.0
La información de este artículo se refiere a:
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
Palabras clave: 
kbhowto kbprogramming kbmt KB161833 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): 161833

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