XL 2016 lire automatiquement un E-Mail du Outlook dans Excel

[Tresor1]

Bonjour a tous ,

je ne m y connait trop en VBA je suis debutante et la j ai recu un Excercice de mon Patron. Il recoit plusieurs Email de son Outlook et voudrais avoir certain information(ID, Sujet et Date d entree) Automatiquement dans excel. Voici le code que j ai ecrit mais il ne s excecute pas j aimerai savoir a quel niveau est ce qu il ya erreur. on me dit que "Dim OutlookNamespace As Namesapce" n est pas defini. Merci


Sub getdatafromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Namesapce
Dim Folder As MAPIFolder
Dim outlookMail As Variant
Dim i As Integer
Dim ID As Integer

Set OutlookApp = New Outlook.Application

Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")

Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("Impmail")

i = 1

For Each outlookMail In Folder.Items

If outlookMail.ReceivedTime >= Range("Eingangsdatum").Value Then
Range("ID").Offset(i, 0) = outlookMail.objekt
Range("ID").Offset(i, 0).Columns.AutoFit
Range("ID").Offset(i, 0).VerticalAlignement.xlTop
Range("Betreff").Offset(i, 0).Value = outlookMail.Betreff
Range("Betreff").Offset(i, 0).Columns.AutoFit
Range("Betreff").Offset(i, 0).VerticalAlignement.xlTop
Range("Eingangsdatum").Offset(i, 0).Value = outlookMail.ReceivedTime
Range("Eingangsdatum").Offset(i, 0).Columns.AutoFit
Range("Eingangsdatum").Offset(i, 0).VerticalAlignement.xlTop

i = i + 1
End If

Next outlookMail

Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing

End Sub

 

[Tresor1]

Bonjour ,

d accord .Merci