Discussion :

[iMaTh]

Bonjour à tous, je sèche sur une macro qui récupère la liste des mails dans mon outlook et les dispose dans une feuille Excel.
La macro est lancé depuis Excel.

Ci-dessous le code, je me retrouve avec une erreur 13 Type Mismatch au niveau de "For Each OLmail In OLinbox.Items".
La macro m'affiche 11 mails sur 15 avant de planter.
Avez vous une idée ?

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
 
Sub getAllMails()
 
    Dim OLapp As Outlook.Application
    Dim OLspace As Outlook.Namespace
    Dim OLinbox As Outlook.MAPIFolder
    Dim OLfolder As Outlook.MAPIFolder
    Dim OLmail As Outlook.MailItem
    Dim i As Double
    Dim out As Variant
 
    Set OLapp = CreateObject("Outlook.application")
    Set OLspace = OLapp.GetNamespace("MAPI")
    Set OLinbox = OLspace.GetDefaultFolder(olFolderInbox)
 
    i = 2
    For Each OLmail In OLinbox.Items
        Range("A" & i).Value = OLmail.Subject
 
        i = i + 1
    Next
 
    Set OLapp = Nothing
    Set OLspace = Nothing
    Set OLinbox = Nothing
 
End Sub

[SfJ5Rpw8]

bonsoir,

les "Items" ne sont pas forcément des mails Items ..

modifie ta ligne 8

Code :

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

  Dim OLmail  'As Outlook.MailItem

et pour ta boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
...
For Each OLmail In OLinbox.Items
   If TypeName(OLmail) = "MailItem" Then
        Range("A" & i).Value = OLmail.Subject ' :( pas terrible le Range..non -préfixé de  la feuille de destination 
 
      Else
        Debug.Print "Type non pris en compte :" & TypeName(OLmail)
        Stop ' CTRL+G pour afficher fenêtre exécution F5 pour continuer
      End If 
 
 
        i = i + 1
    Next