[DELPHI] Ricevere email con allegati

[123delphi321]

Ciao a tutti,

devo fare un programma che scarica tutta la posta da un account e la memorizza in un database firebird che poi verrà interrogato da diversi utenti.

penso che qualcuno di Voi abbia gia affrontato il problema...

mi sapreste suggerire quali componenti devo usare, e come posso fare per scaricare gli allegati alle stesse email?

grazie

[denis76]

La libreria Indy contiene componenti per gestire la posta, trovi anche degli esempi in rete.

[123delphi321]

grazie denis....

dato che ho una pessima connessione gprs... potresti inviarmi il link di dove trovo un esempio valido per delphi 7?


grazie per l'aiuto

[123delphi321]

scusate come faccio a vedere che versione indy e' installata?

ho delphi 7 e le indy comprese nell'installazione di delphi.

grazie

[denis76]

Dentro c:\programmi\bds (non mi ricordo cosa) c'è la cartella Indy10 o quello che è.
Sono quasi sicuro che tu abbia la 10 comunque.

[alka]

Io ho creato un applicativo che fa esattamente quanto viene richiesto.

Per scaricare la posta, puoi utilizzare gli Indy Components e nello specifico il componente TIdPop3. Se fai clic con il tasto destro su qualsiasi componente del package disposto su Form o DataModule, c'è una voce di menu che evidenzia la versione in questione.

La documentazione completa puoi trovarla in questa pagina, assieme alla versione più recente e a vari demo.

Per il salvataggio su DB, ho utilizzato la libreria dbExpress.

Le possibilità dipendono poi dalla versione di Delphi che possiedi.

Ciao!

[123delphi321]

ciao,

ho le Indy 9.00.10


non riesco a catturare il testo del messaggio ( body ), sto guardando la demo delle indy... e neanche dal programma demo ci riesco....

riesco a catturare solo la testata del messaggio:

oggetto,from,data.... ma non il body!


ricordi come si fa per catturare il body?

grazie

[alka]

Originariamente inviato da 123delphi321
ricordi come si fa per catturare il body?

Non hai guardato se c'è la proprietà Body?

Tra i link che ti ho mandato, c'era anche la documentazione, comunque.

Ciao!

[123delphi321]

si, c'e' la proprietà body...


io faccio cosi:

         Application.ProcessMessages;
         Msg.Clear;
         POP.RetrieveHeader(intIndex, Msg);
         DM.IBDataSetEMail.Open;
         DM.IBDataSetEMail.Append;
         DM.IBDataSetEMailITEM.AsString:=Msg.Subject;
         DM.IBDataSetEMailMITTENTE.AsString:=Msg.From.Text;
         DM.IBDataSetEMailDATA.AsString:=DateToStr(Msg.Date);
         DM.IBDataSetEMailORA.AsString:=TimeToStr(Msg.Date);

         cxMemo1.Lines:=msg.Body;

         DM.IBDataSetEMailBYTES.AsString:=IntToStr(POP.RetrieveMsgSize(intIndex));
         DM.IBDataSetEMail.Post;

pop e' Tidpop3
msg e' TidMessage

grazie

[123delphi321]

ciao,

riesco a leggere le email, ma non riesco a capire se quella email e' una mail eliminata nella casella inbox.

mi spiego meglio.

quando leggo le email:

         POP.Retrieve(intIndex, Msg);

vengono importati tutte le email comprese quelle eliminate nella imbox

credevo di riuscire a risolvere questo problema verificando i flags...

             if mfdeleted in MSG.Flags then
             DM.IBDataSetEMailCANCELLATO.AsString:= 'S';

ma questo controllo non risulta mai vero.

che errore commetto???

grazie