Leggere la posta elettronica mediante le sole risorse di Gambas
Da Gambas-it.org - Wikipedia.
Versione del 5 set 2016 alle 05:17 di Vuott (Discussione | contributi)
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 !