Problema al incluir archivos en envio de mail

[Rodolfo Israel]

Hola, tengo el siguiente código para enviar correos utilizando en este caso mi SMTP local, el problema es cuando intento incluir un archivo en el mensaje me falla el Send, me muestra el error: "no se tiene acceso al objeto CDO", sin embargo si comento esta linea: Mail.Attachments.Add(Attachment) el mensaje se envia sin problemas, ¿alguien me podria ayudar con alguna sugerencia para hacer esto?

Código:

	Private Sub btnSendSencillo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendSencillo.Click

		Dim eMail As New MailMessage
		Dim Attachment As MailAttachment

		eMail.BodyFormat = "Esto es una prueba"
		eMail.From = "[email protected]"
		eMail.To = "[email protected]"
		eMail.Body = "Mensaje de Prueba"
		
		SmtpMail.SmtpServer = "127.0.0.1"

		Attachment = New MailAttachment("Prueba.xml")

		 'Cuando comento la linea de abajo todo funciona bien
		eMail.Attachments.Add(Attachment)

		Try
			SmtpMail.Send(eMail)
		Catch 
		 MessageBox.Show("No se puede enviar el mensaje, pruebe que el servidor SMTP este habilitado" )
	  
		End Try

	End Sub

[alehawk]

El archivo prueba.xml existe el el directorio donde se esta ejecutando la app?
Abrazo

[Rodolfo Israel]

Si existe, sin embargo cuando no comento esa linea de código el Send me marca esa exepcion, la verdad es que no tengo ni idea de porque se produce, pues en general el código trabaja bien usando el SMTP de windows, ya lo probe mandandome correos a cuentas de yahoo, hotmail y gmail y a todos me han llegado, el problema es que cuando intento anexarle un archivo me marca el error.

[Rodolfo Israel]

Acabo de probar este código con una imagen al lugar del archivo xml y si la envia sin problemas, pero al intentar enviar el archivo .xml me lanza la exepción. ¿habra algun problema causado por la extencion del archivo al enviar correos?

[alehawk]

Fijate si podes trapear la excepcion y la podes poner aca, quizas mirandola nos demos una idea.
Abrazo