Differenze tra le versioni di "Leggere la posta elettronica mediante le sole risorse di Gambas"
Da Gambas-it.org - Wikipedia.
Riga 5: | Riga 5: | ||
− | Mostriamo un esempio pratico: | + | Mostriamo un esempio pratico, laddove: |
+ | <BR>- ''pop.host'' rappresenta il Server di posta elettronica dell'utente (ad esempio: ''pop.tiscali.it''); | ||
+ | <BR>- ''pop.Port'' rappresenta la porta Porta POP3 con SSL del Server (ad esempio con Tiscali: ''995''); | ||
+ | <BR>- ''pop.User'' rappresenta l'identificativo della casella di posta elettronica dell'utente (esempio: ''identificativo@tiscali.it'', ma anche più semplicemente: ''identificativo''); | ||
+ | <BR>- ''pop.Password'' rappresenta la password dell'utente per accedere alla sua casella di posta elettronica. | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
Riga 18: | Riga 22: | ||
.Host = "pop.<FONT Color=gray>''server.it''</font>" | .Host = "pop.<FONT Color=gray>''server.it''</font>" | ||
.Port = <FONT Color=gray>''numero_porta''</font> | .Port = <FONT Color=gray>''numero_porta''</font> | ||
− | .User = "<FONT Color=gray>'' | + | .User = "<FONT Color=gray>''identificativo_utente''</font>" |
.Password = "<FONT Color=gray>''password''</font>" | .Password = "<FONT Color=gray>''password''</font>" | ||
.Encrypt = Net.SSL | .Encrypt = Net.SSL | ||
Riga 25: | Riga 29: | ||
End With | End With | ||
− | <FONT Color=gray>' ''Imposta il numero d'indice della e-mail ricevuta da leggere:''</font> | + | <FONT Color=gray>' ''Imposta il numero d'indice (che ha inizio da zero) della e-mail ricevuta da leggere:''</font> |
email = 4 | email = 4 | ||
Riga 62: | Riga 66: | ||
'''End''' | '''End''' | ||
− | |||
− | |||
− | |||
− |
Versione delle 15:06, 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, laddove:
- pop.host rappresenta il Server di posta elettronica dell'utente (ad esempio: pop.tiscali.it);
- pop.Port rappresenta la porta Porta POP3 con SSL del Server (ad esempio con Tiscali: 995);
- pop.User rappresenta l'identificativo della casella di posta elettronica dell'utente (esempio: identificativo@tiscali.it, ma anche più semplicemente: identificativo);
- pop.Password rappresenta la password dell'utente per accedere alla sua casella di posta elettronica.
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 = "identificativo_utente" .Password = "password" .Encrypt = Net.SSL .Debug = False .Open() End With ' Imposta il numero d'indice (che ha inizio da zero) della e-mail ricevuta da leggere: email = 4 ' Controlla che il numero d'indice impostato corrisponda ad un e-mail esistente: 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