Enviar e-mail desde un XP
Publicado por Jaime (2 intervenciones) el 22/06/2004 10:06:11
He creado una aplicacion (Windows Form) que genera un fichero PDF a partir de un Crystal Report, y lo envía por e-mail. La transformación del fichero a PDF lo hace perfecto, tanto en W 2000 como en XP, pero, cuando hago el attach del fichero al mail, mientras que en W2000 lo hace bien el 100% de las veces, corriendo la aplicación en XP, el fichero adjunto no se puede abrir (Da un error como que el formato del fichero no es correcto, de hecho, el tamaño es menor que el original). Mirando por los foros y todo eso, alguien sugirió utilizar MailEncoding.UUEncode como parámetro del Attachment y entonces, la mayoría de las veces lo envía correctamente, pero alguna vez, sigue fallando, y en otras, como me ocurrió ayer, ni siquiera lo adjunta, sino que lo muestra abierto en el body del mail, lógicamente ilegible.
Te envío el código a ver si alguien puede ayudarme.
_________________________________________
Private Sub Sendmail()
Dim Mail As New MailMessage
Dim Server As SmtpMail
Dim At As New MailAttachment("Invoice.pdf", MailEncoding.UUEncode)
With Mail
.To = "[email protected]"
.Subject = "Asunto"
.Attachments.Add(At)
.From = "[email protected]"
End With
Server.SmtpServer = "mail.serversmtp.com"
Server.Send(Mail)
End Sub
_________________________________________
Gracias de antemano
Te envío el código a ver si alguien puede ayudarme.
_________________________________________
Private Sub Sendmail()
Dim Mail As New MailMessage
Dim Server As SmtpMail
Dim At As New MailAttachment("Invoice.pdf", MailEncoding.UUEncode)
With Mail
.To = "[email protected]"
.Subject = "Asunto"
.Attachments.Add(At)
.From = "[email protected]"
End With
Server.SmtpServer = "mail.serversmtp.com"
Server.Send(Mail)
End Sub
_________________________________________
Gracias de antemano
Valora esta pregunta


0