Envio de email con archivo adjunto en vb.net??

[SinNombre]

Saludos .
Tengo el siguiente problema, necesito enviar un e-mail con un archivo pdf adjunto a un servidot smtp, ya puedo enviar el e-mail pero sin el archivo adjunto pq si lo envio con el adjunto me marca el siguiente error:

"No se puede tener acceso al objeto CDO.Message"

este es el codigo que utilizo:

Imports System.Web.Mail

Dim MyEmail As New System.Web.Mail.MailMessage
Dim i As Integer
Dim smtpMail As System.Web.Mail.SmtpMail
Dim att As New MailAttachment(Application.StartupPath & "\Solicitud\Solicitud.pdf", MailEncoding.UUEncode)

With MyEmail
.From = "Control de Llamadas"
.To = "[email protected]"
.Cc = "[email protected]"
.Subject = "Solicitud de Registro"
.Body = "Esto es una prueba si te llega avisame...Juan Carlos"
.BodyFormat = MailFormat.Text
.Priority = Web.Mail.MailPriority.High
.Attachments.Add(att)
End With
Try
smtpMail.SmtpServer = "185.100.11.203"
smtpMail.Send(MyEmail)
Catch ex As Exception
MsgBox(ex.Source & Chr(13) & ex.Message)
End Try
End Sub


Agredezco de antemano su ayuda

[c_keeper]

Prueba a utilizar ASPemail...

Saludos.

[SinNombre]

Ya encontre el error..resulto mas facil de lo que pense Lo que pasaba es que en la propiedad From del MailMessage es necesario indicar una direccion de correo electronico aunque esta no exista, creo que lo valida con un estandar establecido ("[e-mail]" ) y NO si existe o no existe.


Aki esta el ejemplo por si alguien llega a tener el mismo problema, cualquier duda, pueden preguntar...ojala tenga la respuesta


Imports System.Web.Mail

Dim MyEmail As New System.Web.Mail.MailMessage
Dim i As Integer
Dim smtpMail As System.Web.Mail.SmtpMail
Dim att As New MailAttachment(Application.StartupPath & "\Solicitud\Solicitud.pdf", MailEncoding.UUEncode)

With MyEmail
.From = "Control de Llamadas" Esta parte la sustitui por : "[email protected]"
.To = "[email protected]"
.Cc = "[email protected]"
.Subject = "Solicitud de Registro"
.Body = "Esto es una prueba si te llega avisame...Juan Carlos"
.BodyFormat = MailFormat.Text
.Priority = Web.Mail.MailPriority.High
.Attachments.Add(att)
End With
Try
smtpMail.SmtpServer = "185.100.11.203" <-------- Direccion del Servidor SMTP de la LAN
smtpMail.Send(MyEmail)
Catch ex As Exception
MsgBox(ex.Source & Chr(13) & ex.Message)
End Try
End Sub

No hay crecimiento sin ayuda, solo el que pregunta es capaz de resolver sus dudas