Titolo: Scaricare le mail con IMAP
Categoria: Info |
|
Ultimo Aggiornamento: 21/10/11 |
Dovendo scaricare da Gmail gli aggiornamenti del
gruppo Sviluppo4D su Facebook inviati da Umberto in occasione del summit di Boston, ecco il codice utilizzato all'uopo.
C_TEXT($msgText)
READ WRITE([Posta])
$error:=0
$sslPOPPort:=995
$Errore_l:=IT_SetPort (13;$sslPOPPort) //12 is for 'SMTP with SSL'
$error:=IMAP_Login ("pop.gmail.com";"indirizzo@gmail.com";"password";$imapID;1)
$error:=IMAP_SetCurrentMB ($imapID; "4D Summit 2011"; $msgNber; $newMsgNber; $customFlags; $permanentFlags; $mbUID)
For ($i;1;$msgNber)
CREATE RECORD([Posta])
msgDataItem:="INTERNALDATE"
$Err:=IMAP_MsgFetch ($imapID;$i;msgDataItem;$text)
$position:=Position(" ";$text)
$text:=Delete string($text;1;$position)
$error:=IMAP_GetMessage ($imapID;$i;0;31000;2;$msgText;1)
$datrovare:="nel gruppo Sviluppo4D"
$position:=Position($datrovare;$msgText)
$msgText:=Delete string($msgText;1;$position+Length($datrovare)+2)
$datrovare:="Per commentare"
$position:=Position($datrovare;$msgText)
$msgText:=Delete string($msgText;$position-2;Length($msgText))
[Posta]msg_body:=$msgText
[Posta]msg_ID:=$i
SAVE RECORD([Posta])
UNLOAD RECORD([Posta])
End for $error:=IMAP_Logout($imapID)
| Inviato da: PierPaolo Sichera |
|
Visite: 11131 |
Se accedi con utente e password, puoi aggiungere dei commenti.
