Discussion :

[didi971]

Bonjour à tous,
Je devéloppe un projet VB6 dans le but de récupérer un e_mail dans un répertoire OUTLOOK. Mon problème est que mon programme buggue en présence d'un postmaster dans le répertoire où se trouve l'e-mail. Je souhaiterais savoir comment reconnaître un postmaster dans VB , l'éviter lors de la recherche de l'email. Je vous laisse mon code pour comprendre mon problème.

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
    Dim objF As MAPIFolder
    Dim NbObjMail As Integer
    Dim objMail As MailItem
    Dim str As String
    Dim i  As Integer
    gstrBAL ="Conseiller_MBX"
    str = "A NE PAS SUPPRIMER"
 
 
     i = 0
     Do
                If objF.Items.Item(i).To = gstrBAL And _
                   objF.Items.Item(i).SenderName = gstrBAL And _
                   objF.Items.Item(i).Subject = str Then
                                    Set objMail = objF.Items.Item(i)
                                    Exit Function
                 End If
                 i = i + 1
     Loop Until i = objF.Items.Count

Merci à tous

[OhMonBato]

Je sais même pas ce qu'est un postmaster