1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
| Private Sub cmd_download_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_download.Click
ReceiveMail(cb_serveurpop.Text, Txt_login.Text, Txt_pass.Text, True)
End Sub
Public Sub ReceiveMail(ByVal sServer As String, ByVal sUserName As String, ByVal sPassword As String, ByVal bSSLConnection As Boolean)
Dim oClient As New MailClient("TryIt")
'To receive email from imap4 server, please change
'ServerProtocol.Pop3 to ServerProtocol.Imap4 in MailServer constructor
Dim oServer As New MailServer(sServer, sUserName, sPassword, bSSLConnection, ServerAuthType.AuthLogin, ServerProtocol.Pop3)
'by default, the pop3 port is 110, imap4 port is 143,
'the pop3 ssl port is 995, imap4 ssl port is 993
'you can also change the port like this
oServer.Port = 995
Try
oClient.Connect(oServer)
Dim infos() As MailInfo = oClient.GetMailInfos()
Dim count As Integer = infos.Length
For i As Integer = 0 To count - 1
Dim info As MailInfo = infos(i)
Dim oMail As Mail = oClient.GetMail(info)
''Save mail to local file
' oMail.SaveAs(String.Format("c:\{0}.eml", i), True)
ListView1.Items.Add(oMail.SentDate)
ListView1.Items.Add(oMail.From.Name)
ListView1.Items.Add(oMail.Subject)
Next
' For i As Integer = 0 To count - 1
'Dim info As MailInfo = infos(i)
'oClient.Delete(info)
'Next
'
' Delete method just mark the email as deleted,
' Quit method pure the emails from server exactly.
oClient.Quit()
MsgBox("connexion reussi")
Catch ep As MailServerException
''Message contains the information returned by mail server
MsgBox(ep.Message)
Catch ep As System.Net.Sockets.SocketException
MsgBox(ep.Message)
Catch ep As Exception
MsgBox(ep.Message)
End Try
oClient.Close()
End Sub |
Partager