SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: Marauder en Miércoles 19 de Abril de 2006, 18:22

Título: Enviar Datos Adjuntos
Publicado por: Marauder en Miércoles 19 de Abril de 2006, 18:22

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.

Título: Re: Enviar Datos Adjuntos
Publicado por: junahu en Viernes 21 de Abril de 2006, 00:48

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:

Título: Re: Enviar Datos Adjuntos
Publicado por: Marauder en Martes 25 de Abril de 2006, 10:59

Muchas gracias por tu ayuda.