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