-- Unus Ex Altera -- | Bonjour à tous. La suite, vite la suite :
1
| MailRecu[i].index = Module1.POP[n].Index
|
Je n'ai conservé que cette ligne car ce n'est que l'index qui permet de gérer les différents mails. Vous avez vu que j'ai conservé la structure mais je devrais la modifier en integer[] pour alléger (on verra après).J'ai renvoyé la définition du pop dans une fonction du module d'ouverture 1
2
3
4
5
6
7
8
9
| PUBLIC FUNCTION serveurPop(i AS INTEGER) POP = NEW Pop3Client POP.host = FMain.Accounts[i].Server POP.User = FMain.Accounts[i].User POP.Password = FMain.Accounts[i].Pass POP.port = FMain.Accounts[i].Port POP.Encrypt = IIf(FMain.Accounts[i].SSL, net.ssl, Net.none) RETURN END
|
un simple permet de supprimer les mails indésirables et pour lire 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| IF Module1.POP.Count > 0 THEN '************ entête **************************************************** mastring = maString & "De : " & Module1.POP[n].Message.Sender & gb.CrLf ' de maString = maString & "Objet : " & Module1.POP[n].Message.Subject & gb.CrLf ' objet maString = maString & "À : " Module1.POP[n].Message.T gb.CrL ' À maString = maString & "UniqueID : " & Module1.POP[n].UniqueID & gb.CrLf ' UniqueID maString = maString & "Date : " & Now() & gb.CrLf ' Date maString = maString & "Réponse à : " Module1.POP[n].Message.ReplyTo & gb.CrLf ' ReplyTo maString = maString & "Taille : " & Module1.POP[n].Size ' taille '****** message ******************************************************** q = 5 maString2 = Mime.Decode(Module1.POP[n].Message.Body.ToString(), q) maString1 = Module1.POP[n].Message.ToString() '************************************************************************ ENDIF
|
Pour l'instant je bute sur le formatage du message à visualiser ou imprimer. À bientôt sur nos lignes de programmation PhilippeSystème d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.5 |