FiveTech Support Forums

Ciao,

qualcuno ha qualche esempio minimale per leggere le mails con harbour/fw ?

Ho trovato questo esempio nel forum, ma non va, forse perchè è per xHarbour: (qualche dritta ?)

(ho notato che sta fermo su: aMail = oCli:RetrieveAll() per ore e continua a scaricare dati da internet)
(ho usato pop.tiscali.it, userid,password)

STATIC FUNCTION GETMAIL( cServer, cUser, cPassword )

LOCAL lOk := .F.

LOCAL oCli

LOCAL aMail, aPar, cMsg, oAtt

LOCAL i

cUser := StrTran( cUser, "@", "&at;" )
    oCli = TIPClientPOP():New( "pop://" + cUser + ":" + cPassword + "@" + cServer )

    IF EMPTY( oCli ); BREAK; ENDIF

    oCli:oUrl:cUserid = Strtran( cUser, "&at;", "@" )

    IF !oCli:Open(); BREAK; ENDIF

    aMail = oCli:RetrieveAll()

    FOR i = 1 TO LEN( aMail ) - 1
        aPar = aMail[ i ]:GetMultiParts()

        IF LEN( aPar ) = 0
            cMsg = "Data: " + aMail[ i ]:GetFieldPart( "Date" ) + CRLF +;
                   "Oggetto: " + aMail[ i ]:GetFieldPart( "Subject" ) + CRLF +;
                   "Mittente: " + aMail[ i ]:GetFieldPart( "From" ) + CRLF + CRLF +;
                   "Messaggio: " + CRLF + CRLF + aMail[ i ]:GetBody()
        ELSE
            cMsg = "Data: " + aMail[ i ]:GetFieldPart( "Date" ) + CRLF +;
                   "Oggetto: " + aMail[ i ]:GetFieldPart( "Subject" ) + CRLF +;
                   "Mittente: " + aMail[ i ]:GetFieldPart( "From" ) + CRLF + CRLF +;
                   "Messaggio: " + CRLF + CRLF + BODY( aPar )
        ENDIF

        WHILE ( oAtt := aMail[ i ]:NextAttachment() ) != NIL
            IF !EMPTY( oAtt:GetFileName() )
                cMsg += CRLF + "Allegato: " + oAtt:GetFileName()

// IF !oAtt:DetachFile(); BREAK; ENDIF
ENDIF
ENDDO

        ? cMsg
    NEXT

    lOk = .T.

IF !EMPTY( oCli ); oCli:Close(); ENDIF

RETURN lOk

STATIC FUNCTION BODY( aPar )

LOCAL cMsg := ""

LOCAL i

FOR i = 1 TO LEN( aPar )
    IF EMPTY( aPar[ i ]:GetFieldPart( "Content-Disposition" ) )
        cMsg += aPar[ i ]:GetBody()
    ENDIF
NEXT

RETURN ALLTRIM( cMsg )

L'esempio è mio ma non è corretto. Eccoti la versione attuale.



EMG

Grazie Enrico, ma si ferma sull'istruzione:

aMail = oCli:RetrieveAll()

e scarica mega e mega e non esce più !

Scaricherà mica tutta la posta ?

Proverò a lasciarlo acceso tutta la notte e vediamo che succede !

Ciao e buon WE
R

Certo che scarica tutta la posta! Cosa ti aspettavi, che scaricasse un solo messaggio? Sicuramente si può fare ma non so come. Perché non lo provi con una casella con pochi messaggi?

EMG

E comunque in realtà non scarica niente, ma legge in memoria. Immagino che sia per quello che si blocca. Tieni presente che quello è solo un test dal quale poi uno si sviluppa ciò che gli serve realmente.

In ogni caso, con poche email funziona perfettamente. Ma solo POP3 senza SSL. Per SSL bisogna linkare le librerie OpenSSL ma non ho ancora capito come (vedi altro thread).

EMG

Ok

Provata su una casella con poche mail e funziona.

Certo che se la casella contiene 10000 msg....... ci vuole un giorno. E poi che senso ha rileggere sempre tutto ?

Mai possibile che non esistono parametri per leggere solo alcune mails, magari per data ricezione ?

Pare imposssibile !

Grazie cmq

A ri-ciao e b we
R

No, il metodo c'è di sicuro. Solo che bisognerebbe studiarsi la classe...

EMG

Ho dato uno sguardo e a quanto pare c'è il metodo




dove n è il numero del messaggio da scaricare e oMail è l'oggetto tramite il quale si può accedere ai campi della email e ai suoi eventuali allegati.

EMG

Grande Enrico,

vedi che "ravanando" qualcosa si trova.

Certo, sarebbe "ezzziunale verament" riuscire a legge le PEC..

Ma questa è un'altra storia !

Ciao e buon WE

R

Nell'altro thread ho riportato anche la soluzione per leggere le PEC.

EMG

Scusa Enrico dovè l'altro thread per leggere le PEC ?

Tks

http://forums.fivetechsupport.com/viewtopic.php?f=20&t=36588

EMG

Grazie caro,

appena ho una giornata "SI", ci provo !

Saluti