- Bonjour, J'ai une erreur d'exécution 91 : variable objet non définie sur la ligne souligné en gras, pourtant la bibliothèque Outlook est inséré ! je ne comprends
voici mon code :
svp aidez moi ! merci
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 Dim Ol As Object Dim Ns As Object Dim Dossier As Object Dim i As Object 'Outlook.Items 'compteur de boucle Dim cpt As Integer 'compteur de boucle Dim tableauMail() As Outlook.MailItem 'instance de l'objet mail ' Set Ol = CreateObject("Outlook.Application", "localhost") ' Set Ns = Ol.GetNamespace("MAPI") ' Set Dossier = Ns.GetDefaultFolder(olFolderInbox) cpt = 0 'extraction des donnees For Each i In Dossier.Items 'c'est un mail If TypeOf i Is Outlook.MailItem Then 'c'est le bon mail If i.UnRead = True And i.Subject = "[supervision_parapheur] HRP : Appels Web Service reçus " Then 'remplissage du champ mail du tableau non trié ReDim tableauMail(cpt) Var = TypeName(tableauMail(0)) MsgBox (Var) ReDim tableauMail(cpt) tableauMail(cpt) = i cpt = cpt + 1 end if end if Next
Partager