Cómo enviar datos adjuntos en un mensaje de correo electrónico utilizando Visual Basic .NET

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

Resumen

En este artículo se describe cómo utilizar la Biblioteca de objetos de Microsoft Outlook para enviar datos adjuntos en un mensaje de correo electrónico utilizando Microsoft Visual Basic .NET.

Más información

Para enviar datos adjuntos en un mensaje de correo electrónico utilizando Visual Basic .NET, siga estos pasos:
  1. Inicie Microsoft Visual Studio .NET.
  2. En el menú Archivo, seleccione Nuevo y haga clic en Proyecto.
  3. En la lista Tipos de proyectos de Visual Basic, haga clic en Aplicación de consola.

    De forma predeterminada se crea el archivo Module1.vb.
  4. Si Office Outlook 2003 está instalado en el equipo de desarrollo, agregue una referencia a la Biblioteca de objetos de Microsoft Outlook 11.0. Si Outlook 2002 está instalado en el equipo de desarrollo, agregue una referencia a la Biblioteca de objetos de Microsoft Outlook 10.0. Para ello, siga estos pasos:
    1. En el menú Proyecto, haga clic en Agregar referencia.
    2. Haga clic en la ficha COM, busque Biblioteca de objetos de Microsoft Outlook 11.0 o Biblioteca de objetos de Microsoft Outlook 10.0 y 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 seleccionadas, haga clic en .
  5. En la ventana de código, reemplace el código con lo siguiente:
     Module Module1
    
        Sub Main() ' Crear una aplicación Outlook. Dim oApp As Outlook._Application oApp = New Outlook.Application()
    
            ' Crear un nuevo elemento de correo. Dim oMsg As Outlook._MailItem oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem) oMsg.Subject = "Enviar datos adjuntos utilizando OOM en Visual Basic .NET" oMsg.Body = "Hola a todos" & vbCr & vbCr
    
            ' TODO: Reemplazar con una dirección válida de correo electrónico. oMsg.To = "usuario@ejemplo.com"
    
            ' Agregar un archivo adjunto ' TODO: Reemplazar con una ruta de acceso válida del archivo adjunto. Dim sSource As String = "C:\Temp\Hola.txt" ' TODO: Reemplazar con el nombre del archivo adjunto Dim sDisplayName As String = "Hola.txt"
    
            Dim sBodyLen As String = oMsg.Body.Length Dim oAttachs As Outlook.Attachments = oMsg.Attachments Dim oAttach As Outlook.Attachment oAttach = oAttachs.Add(sSource, , sBodyLen + 1, sDisplayName)
    
            ' Enviar oMsg.Send()
    
            ' Limpiar oApp = Nothing oMsg = Nothing oAttach = Nothing oAttachs = Nothing End Sub
    
    End Module 
  6. Busque la cadena de texto TODO en el código y modifique el código para su entorno.
  7. Presione la tecla F5 para generar y ejecutar el programa.
  8. Compruebe que se han enviado el mensaje de correo electrónico y el archivo adjunto.

Propiedades

Id. de artículo: 313803 - Última revisión: martes, 20 de junio de 2006 - Versión: 2.1
La información de este artículo se refiere a:
  • Microsoft Office Outlook 2003
  • Microsoft Outlook 2002 Standard
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
Palabras clave: 
kbhowto kbxml kbcode KB313803

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