bonjour ,

après une semaine de recherche j'ai enfin trouver mon bonheur , une dll qui peut charger ses mail a partir du pop3 ...

et c'est ici avec des exemple la

donc j'ai fait une form avec 2 textbox une pour le compte l'autre pour le passe et une listview pour afficher la date , l'expéditeur et le sujet

( jusque la tout va bien )

une fois les textbox et la combobox rempli , on clique sur [DOWNLOAD]

et ca lance ceci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
donc si je regarde le code ,
je vois que je donne bien le compte et le mot de passe , l'adresse du serveur est bonne , je me connecte bien en ssl , sur le bon port et je déclare que c'est le protocole pop3

mais sa m'affiche :

une connexion existant a du être fermer avec l'hôte distant



il y a de quoi devenir dingue

si quelqu'un pourrait me donner un coup de main ce serai sympa