Gambas France BETA


Pas de compte ? Incription

instanciation SVP

Ce sujet est résolu.

12
AuteurMessages
valaquarus#16 Posté le 27/1/2019 à 14:16:43
-- 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
1
Module1.POP.Remove(n)
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
Philippe
Système d'exploitation : KDE neon 6.0 ~ Version Gambas : 3.19.5