CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Enviar Datos Adjuntos

(1/1)

Marauder:
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:
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:
Muchas gracias por tu ayuda.

Navegación

[0] Índice de Mensajes