• Sábado 9 de Noviembre de 2024, 03:48

Autor Tema:  Enviar Datos Adjuntos  (Leído 1195 veces)

Marauder

  • Miembro activo
  • **
  • Mensajes: 99
    • Ver Perfil
Enviar Datos Adjuntos
« en: Miércoles 19 de Abril de 2006, 18:22 »
0
Hola a todos tengo este codigo para enviar un email

 Dim objMail As Outlook._MailItem

            '* Inicializamos nuestra apliación OutLook

            m_OutLook = New Outlook.Application()

            '* Creamos una instancia de un objeto tipo MailItem

            objMail = m_OutLook.CreateItem(Outlook.OlItemType.olMailItem)

            '* Asignamos las propiedades a nuestra Instancial del objeto

            '* MailItem

            objMail.To = TxtPara.Text

            objMail.Subject = TxtAsunto.Text

            objMail.Body = TxtCuerpo.Text

 '* Enviamos nuestro Mail y listo!

            objMail.Send()

            '* Desplegamos un mensaje indicando que todo fue exitoso

            MessageBox.Show("Mail Enviado", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

Y mi pregunta es la siguiente,¿como se haria para poder mandar los archivos que se adjunten al correo y que se seleccionan por medio de un openfiledialog?

Muchas gracias de antemano.

junahu

  • Miembro activo
  • **
  • Mensajes: 97
    • Ver Perfil
Re: Enviar Datos Adjuntos
« Respuesta #1 en: Viernes 21 de Abril de 2006, 00:48 »
0
objMail.Attachments.Add(Direccion del archivo a adjuntar)

para obtener la direccion del archivo a adjuntar: OpenFileDialog1.FileName

saludos y espero que te ayude.
 :hola:

Marauder

  • Miembro activo
  • **
  • Mensajes: 99
    • Ver Perfil
Re: Enviar Datos Adjuntos
« Respuesta #2 en: Martes 25 de Abril de 2006, 10:59 »
0
Muchas gracias por tu ayuda.