Je poursuis mes tests, et j'arrive à déclarer ma variable.
Problème :
le premier message qu'il me récupère date du 15/11/18 !
Piste de réflexion : je suis passé aujourd'hui sur un nouveau PC avec Windows 10 + Office 2016 (précédent sur Windows 7 + Office 2010). En regardant les fichiers systèmes, j'ai l'impression que le nouveau poste a été configuré le 15/11 ...
Voici le code utilisé :
Dim appOutlook As Object
Dim olNs As Object
Dim olFolder As Object
Dim olItem As Object
Dim iRow As Integer
' Get/create Outlook Application
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set olNs = appOutlook.GetNamespace("MAPI")
Set olFolder = olNs.GetDefaultFolder(6) ' 6 == Inbox for some reason
MsgBox olFolder.Items.Item(1).Subject & vbCr & olFolder.Items.Item(1).ReceivedTime
Et donc la MsgBox retourne un message du 15/11.
Mystère et boule de gomme, mais une question me taraude : Outlook.Application n'est-il pas dédié à Outlook 2010, et il faut utiliser un autre nom pour 2016 ?...