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