Bonjour,
Le projet que je conçois consiste à rechercher des mails par rapport à leur objet dans un email qui en contient beaucoup.

Mon soucis est que le chargement de l'email est très lent vu le nombre de mail à charger.
Je souhaiterais savoir si il y a moyen d'optimiser le code ci-dessous que j'ai trouvé sur internet.

En vous remerciant d'avance,

pve3
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
    Public Shared Function FetchAllMessages(ByVal hostname As String, ByVal port As Integer, ByVal useSsl As Boolean, ByVal username As String, ByVal password As String) As List(Of Message)
        ' The client disconnects from the server when being disposed
 
        Using client As New Pop3Client()
            ' Connect to the server
            client.Connect(hostname, port, useSsl)
 
            ' Authenticate ourselves towards the server
            client.Authenticate(username, password)
 
            ' Get the number of messages in the inbox
            Dim messageCount As Integer = client.GetMessageCount()
 
 
            ' We want to download all messages
            Dim allMessages As New List(Of Message)(messageCount)
 
 
            ' Messages are numbered in the interval: [1, messageCount]
            ' Ergo: message numbers are 1-based.
            For i As Integer = 1 To messageCount
                allMessages.Add(client.GetMessage(i))
            Next
            ' Now return the fetched messages
            Return allMessages
        End Using
 
    End Function