Enviar correo con archivo adjunto desde Visual Basic 2005

[ouji_sama]

Buenas!!

 

tengo la siguiente consulta si alguien me puede ayudar.

 

Estoy trabajando con Visual Studio 2005, en una aplicación escritorio

 

Cree un reporte con crystalreport y lo exporte a pdf en una carpeta del equipo.

 

ahora necesito enviar ese pdf por correo pero mediante el código.

 

tengo un boton que debería enviar el correo con el archivo adjunto.

 

He probado un monton de códigos, pero ninguno funciona o siempre hay errores porque son para asp.

 

el correo del cual se debe enviar el archivo es un correo @vtr.net

 

ojala alguno de uds sepa como resolver esto a mi me quedo grande xD

 

gracias se pasaron!

 

Editado:

 

aquí esta la solución para todo aquel que lo necesite.

 

[hide]

 

#Region "ENVIAR CORREO ELECTRONICO"

Public Sub enviamail()

 

Dim email As New System.Net.Mail.MailMessage()

Dim smtp As New System.Net.Mail.SmtpClient

 

'CONFIGURACIÓN DEL STMP

 

smtp.Credentials = New System.Net.NetworkCredential("correo del que envio", "contraseña")

smtp.Host = "smtp.gmail.com"

smtp.Port = 587

smtp.EnableSsl = True

 

' CONFIGURACION DEL MENSAJE

 

email.[To].Add("correo al que envio") 'Cuenta de Correo al que se le quiere enviar el e-mail

email.From = New System.Net.Mail.MailAddress("correo del que envio", "Nombre", System.Text.Encoding.UTF8) 'Quien lo envía

email.Subject = "prueba" 'Sujeto del e-mail

email.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion

email.Body = "mensaje de prueba" 'contenido del mail

email.BodyEncoding = System.Text.Encoding.UTF8

email.Priority = System.Net.Mail.MailPriority.Normal

email.IsBodyHtml = False

 

' ADICION DE DATOS ADJUNTOS

Dim ruta As String = "C:\CLIENTE 3_ 2012-1_03-05-2012.pdf" 'archivo que se quiere adjuntar

Dim adjunto As New System.Net.Mail.Attachment(ruta, System.Net.Mime.MediaTypeNames.Application.Octet)

email.Attachments.Add(adjunto)

 

'ENVIO

Try

smtp.Send(email)

Catch ex As System.Net.Mail.SmtpException

MessageBox.Show(ex.ToString)

End Try

End Sub

#End Region[/hide]

Edited May 3, 2012 by ouji_sama

[AshWilliams]

Otro autosolucionado se procede al cierre.....ouji_sama gracias por postear la solución.

 

Saludos :krider: