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

Ha finalizado el soporte técnico para Office 2003

Microsoft puso fin al soporte técnico para Office 2003 el 8 de abril de 2014. Este cambio ha afectado a las actualizaciones de software y las opciones de seguridad. Sepa qué significa esto en su caso y cómo puede mantenerse protegido.

Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
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 SubEnd 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.
enviar adjuntos correo electrónico OOM
Propiedades

Id. de artículo: 313803 - Última revisión: 12/07/2015 08:16:40 - Revisión: 2.1

Microsoft Office Outlook 2003, Microsoft Outlook 2002 Standard, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition

  • kbnosurvey kbarchive kbhowto kbxml kbcode KB313803
Comentarios