Differenze tra le versioni di "Leggere la posta elettronica mediante le sole risorse di Gambas"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per leggere mediante le risorse di Gambas la propria posta elettronica, è necessario attivare i seguenti Componenti: * ''gb.net'' * ''gb.net.pop3'' * ''gb.mime'' Mostriamo...") |
|||
Riga 26: | Riga 26: | ||
<FONT Color=gray>' ''Imposta il numero d'indice della e-mail ricevuta da leggere:''</font> | <FONT Color=gray>' ''Imposta il numero d'indice della e-mail ricevuta da leggere:''</font> | ||
− | email = | + | email = 4 |
+ | |||
+ | <FONT Color=gray>' ''Controlla che il numero di e-mail non sia inesistente:''</font> | ||
+ | If email > pop.Count - 1 Then | ||
+ | Print "\n\e[5mIl numero di e-mail scelto è superiore a quello delle e-mail effettivamente presenti !" | ||
+ | Quit | ||
+ | Endif | ||
Print "===== E-MAIL RICEVUTA n. "; email + 1; " =====\n" | Print "===== E-MAIL RICEVUTA n. "; email + 1; " =====\n" |
Versione delle 05:17, 5 set 2016
Per leggere mediante le risorse di Gambas la propria posta elettronica, è necessario attivare i seguenti Componenti:
- gb.net
- gb.net.pop3
- gb.mime
Mostriamo un esempio pratico:
Public Sub Main() Dim pop As New Pop3Client Dim mm As Mime Dim mimess As MimeMessage Dim nomefile, dati_allegato, idHeader As String Dim contenuto, decodifica As String Dim email, codifica As Integer With pop .Host = "pop.server.it" .Port = numero_porta .User = "nome_utente" .Password = "password" .Encrypt = Net.SSL .Debug = False .Open() End With ' Imposta il numero d'indice della e-mail ricevuta da leggere: email = 4 ' Controlla che il numero di e-mail non sia inesistente: If email > pop.Count - 1 Then Print "\n\e[5mIl numero di e-mail scelto è superiore a quello delle e-mail effettivamente presenti !" Quit Endif Print "===== E-MAIL RICEVUTA n. "; email + 1; " =====\n" With mimess = New MimeMessage(pop[email].Text) ' Mostra il mittente della e-mail ed il suo indirizzo: Print "\e[1mMittente: \e[21m "; .Sender Print "\e[1mTo: \e[21m "; .To If Not IsNull(.Cc) Then Print "\e[1mCc: \e[21m "; .Cc If Not IsNull(.BCc) Then Print "\e[1mBcc: \e[21m "; .BCc ' Mostra l'argomento della e-mail: Print "\e[1mArgomento: \e[21m "; .Subject Print "\n\e[1mTESTO: \e[21m \n" ' Legge il testo della prima parte della e-mail: Print .Part[0].Data ' Verifica se c'è un file allegato. Se c'è, lo scarica: If .Part[.Part.Count - 1].ContentDisposition Like "*attachment*" Then nomefile = .Part[.Part.Count - 1].FileName codifica = .Part[.Part.Count - 1].ContentEncoding idHeader = .Part[.Part.Count - 1].ContentId contenuto = .Part[.Part.Count - 1].ToString() dati_allegato = Scan(contenuto, "*" & idHeader & ">\n*")[1] decodifica = mm.Decode(dati_allegato, codifica) ' Salva il file allegato con il nome e nel percorso prescelti: File.Save("/tmp" &/ nomefile, decodifica) Endif End With End
Pagina in costruzione !