FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour A vueltas con TipMail
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
A vueltas con TipMail
Posted: Wed Aug 29, 2018 07:31 AM
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 (fw): Select all Collapse
 

    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
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

Continue the discussion