Récupérer Informations mail déposé dans un dossier Windows

Bonjour à tous,

J'ai enfin trouvé un code qui permet de récupérer les informations d'un mail rangé dans un dossier Windows. mais j'ai un soucis sur une partie du code que voici:
Option Explicit

Type Infos
    Objet As String
    Expediteur As String
End Type

Sub Cherche_Infos()
Dim Chemin As String, Fichier As String, Extens As String, Inf As Infos, TablInfos() As String, i As Long
Dim objOL As Outlook.Application
'nécessite d'activer la référence : Microsoft Outlook X.0 Object Library.
    Set objOL = CreateObject("Outlook.Application")
    Chemin = "C:\Users\Heelflip\Desktop\Test"
    Extens = "*.msg"
    Fichier = Dir(Chemin & Extens)
    If Fichier <> vbNullString Then
        Do
            i = i + 1
            ReDim Preserve TablInfos(1 To 3, 1 To i)
            Inf = ExtraitInfos(Fichier, objOL)
            TablInfos(1, i) = Inf.Objet
            TablInfos(2, i) = Inf.Expediteur
            Fichier = Dir
        Loop While Fichier <> vbNullString
    End If
    Worksheets("Feuil1").Range("A1").Resize(UBound(TablInfos, 2), 3) = Application.Transpose(TablInfos)
    Set objOL = Nothing

End Sub
Function ExtraitInfos(Fichier As String, obj As Outlook.Application) As Infos
Dim Msg As Outlook.MailItem
    Set Msg = obj.Session.OpenSharedItem(Fichier)
    ExtraitInfos.Objet = Msg.Subject
    ExtraitInfos.Expediteur = Msg.SenderEmailAddress
    Set Msg = Nothing
End Function

Le soucis vient de la partie Resize(Ubound). J'ai une code 9 L'indice n'appartient pas à la sélection. Et je bloque un peu sur la solution. Auriez-vous une solution pour m'aider sur le sujet ?

Merci

Rechercher des sujets similaires à "recuperer informations mail depose dossier windows"