A vueltas con TipMail

Post Reply
User avatar
AngelSalom
Posts: 664
Joined: Fri Oct 07, 2005 7:38 am
Location: Vinaros (Castellón ) - España
Contact:

A vueltas con TipMail

Post by AngelSalom »

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.
Angel Salom
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
Post Reply