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
Partager