Discussion :

[C'estPasMoi]

• 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 :
  

  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

  svp aidez moi ! merci

[parmi]

Bonjour,

Je n'ai pas fait tout le tour, mais essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ReDim Preserve tableauMail(cpt)
tableauMail(cpt) = i

[C'estPasMoi]

tu as raison il le faut je l'avais oublié mais cela ne suffit j'ai toujours l'erreur :/

[parmi]

Même erreur sur la même ligne ?

N'oublie pas que tu déclares 2 fois

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReDim tableauMail(cpt)

pour vérification, j'imagine (?)

[C'estPasMoi]

oui J'ai vu mais j'ai supprimé cette partie de code c'était pour tester les types !

[kuchiky]

Bonjour,

essai avec ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReDim tableauMail(cpt+1)

[parmi]

En début de procédure, mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Redim tableauMail(0)

pour initialiser le tableau

[C'estPasMoi]

Merci pour vos conseils mais cela ne marche toujours pas !

[C'estPasMoi]

J'ai trouvé mon erreur !
je déclarais mal mon tableau
je faisais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim tableauMail() As Outlook.MailItem

alors qu'il fallait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim tableauMail()

Merci pour votre aide