Buenos días amigos, vengo utilizando la clase TipMail para recibir e interpretar correos hace bastante tiempo. Concretamente se trata de un sistema automatizado que recibe correos con adjuntos y luego procesa dichos adjuntos. Pues bien, últimamente se están recibiendo algunos correos que la clase no es "capaz" de reconocer el archivo adjunto. Aunque si abro el fichero del correo con cualquier cliente de correo sí que lo reconoce perfectamente.
Lo que hago es descargar los correos a un fichero y luego procesarlo con :
Code: Select all
oMail := TIPMail():New()
oMail:FromString( cFichero )
While oMail:GetAttachment() != NIL
// Creo el fichero adjunto en el disco
cDatos:=oMail:NextAttachment():GetBody()
nFichero:=fCreate(cDirTemp+cFile)
fWrite(nFichero,cDatos)
fClose(nFichero)
Enddo
He colgado el fichero conteniendo el correo a procesar (
http://www.sigev.com/email_354.eml) por si alguno tenéis más experiencia con estos temas.
Muchas gracias.