Ok.. scusa Alka:
Teoricamente da quanto ho letto sulle documentazione dovrei fare così:
codice:
Imports WinToolZone.CSLMail
Public Class Form1
Dim pop3 As New POP3
Dim smtp As New SMTP
Sub invio()
smtp.SMTPPort = 25
smtp.SMTPServer = "out.alice.it"
smtp.Username = utente
smtp.Password = password
smtp.MailType = WinToolZone.CSLMail.SMTP.MailEncodingType.PLAINTEXT
smtp.From = mia_email
smtp.To = txt_toemail
smtp.Subject = txt_subject
If chk_allegato.checked Then
smtp.AddAttachment(allegato) 'openfiledialog.filename
End If
MsgBox("Risultato Invio: " + smtp.SendMail())
End Sub
Sub ricezione()
Dim i As Integer
Dim msg As String
pop3.Server = "in.alice.it"
pop3.Port = 110
pop3.Username = utente
pop3.Password = password
pop3.Connect()
pop3.Login()
pop3.GetMailboxDetails()
For i = 1 To pop3.TotalMailCount
pop3.FetchEmail(i)
msg = pop3.From + " " + pop3.To + " " + pop3.Subject ' e non so cosa aggiungere per il "corpo del messaggio"
'recupero l'elenco degli allegati e scelgo dove salvarli
Next
pop3.Close()
End Sub
End Class
Qualcuno sa anche dove possa trovare una documentazione più o meno completa su questo tool..?