Bonjour à tous,
j'ai récupéré l'ancien projet d'une personne en VB.NET, ce projet a pour but d'ouvrir une boîte mail (Outlook) et de classer les fichiers attachés dans les mails reçus dans des dossiers spécifiques. Cela fonctionne bien mais évidemment un problème est apparu. En effet, si je reçois par exemple 2 emails d'une même adresse, le premier est ouvert sans problème et l'ensemble des fichiers attachés sont bien copiés dans les dossiers cependant impossible d'ouvrir le 2ème email :/
De plus le projet n'était que peu commenté donc difficile pour moi de m'y retrouver parfois dans ce bordel xD
Je ne vous donne pas l'erreur car ce n'est même pas lisible et ça ne veut rien dire (suite de caractères sans queue ni tête).
Voici le code :
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
 Public Function ProcessMail(ByVal maill As String, ByVal pwd As String, last As String, tmpNode As XmlNode)
        Dim counter = 0
 
        Dim uidlManager As UIDLManager = New UIDLManager()
 
        Dim client As MailClient = New MailClient("TryIt")
        AddHandler client.OnAuthorized, AddressOf UzineMail.OnAuthorized
        AddHandler client.OnConnected, AddressOf UzineMail.OnConnected
        AddHandler client.OnIdle, AddressOf UzineMail.OnIdle
        AddHandler client.OnSecuring, AddressOf UzineMail.OnSecuring
        AddHandler client.OnReceivingDataStream, AddressOf UzineMail.OnReceivingDataStream
        Console.WriteLine("Connecting ...")
        Dim server As MailServer = UzineMail._buildServer(maill, pwd)
        client.Connect(server)
 
        uidlManager.Load(uidlfile)
        UzineMail._setMailRange(client)
        Console.WriteLine("Retrieving email list ...")
        Dim infos As MailInfo() = client.GetMailInfos()
 
        Console.WriteLine("Total {0} email(s)", infos.Length)
 
        uidlManager.SyncUIDL(server, infos)
        uidlManager.Update()
 
        For i As Integer = 0 To infos.Length - 1
            Try
                counter = counter + 1
                Console.WriteLine("Checking {0}/{1}...", i + 1, infos.Length)
                Dim info As MailInfo = infos(i)
                Console.WriteLine("UID : " + info.UIDL)
                If Convert.ToInt32(info.UIDL) > Convert.ToInt32(last) Then
                    If uidlManager.FindUIDL(server, info.UIDL) IsNot Nothing Then
                        Continue For
                    End If
                    Console.WriteLine("Retrieving {0}/{1}...", i + 1, infos.Length)
 
                    Console.WriteLine(info.UIDL + info.EWSChangeKey + info.EWSPublicFolder + info.PostItem)
                    Dim mail As Mail = client.GetMail(info)
Je n'ai mis qu'une partie du code car le reste ne nous intéresse pas. du coup quand je suis au 2ème passage de ma boucle soit le 2ème email de la même adresse, la ligne Dim mail as Mail = client.GetMail(info) ne fonctionne pas et nous envoie donc dans le catch. J'ai pourtant vérifier les UIDL qui sont bien différents mais je ne vois vraiment pas d'où l'erreur peut venir. J'ai fait pas mal de recherches sur Internet mais rien n'y fait, de plus il y a très peu de doc là dessus à se demander pourquoi avait-il choisit une telle librairie :/
Si vous pouviez m'aider je ne dirai pas non x) Merci d'avance